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What exercise is to the body. 
Programming is to the mind. 

D. M. 



preface 



The purpose of this book is to take some of the misery and mystery out of learning 
to use the Commodore-64's file structure. The book is aimed at people who would 
like to learn to use the computer to assist them at home or at work by using the 
file capabilities of the Commodore-64 personal computer. Commodore-64 Data 
Files: A BASIC Tutorial is designed as a step-by-step tutorial. The book explains 
some things that, without adequate manuals, take many painful hours of trial and 
error to learn. Progress has been made in creating better file-handling techniques 
and an explanation of some of these techniques is included. 

Upon completion of the book, you should fully understand what files are and 
how to use them. You will be able to create your own sequential or random access 
files. Examples of both of these file types are included throughout the book. Program 
examples include creation programs for: the stock market, mailing lists, inventories, 
drill and practice, and medical records. 

There are some very good data-base programs available commercially. If your 
needs require an elaborate data base structure, you should probably use one of those 
programs or pay a programmer to create one for you. Reading this book will not 
make you capable of creating complete commercial data base programs, but with 
practice, you will be able to effectively create and use any type of file you want. 
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I really enjoy programming and creating programs for my own use. I like the 
freedom programming gives me, because 1 can easily change or add to what the 
program does. I hope this book conveys some of that enjoyment and freedom. 



David Miller 
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Books . . . (should) be read 
as deliberately and reservedly 
as they were written. 

H. D. Thoreau 



introduction 



No book is magic in that, by possessing the book, you possess the knowledge of 
that book. Yet I have tried to make it relatively easy for ANYONE to learn to 
meaningfully use the Commodore-64 personal computer. 

No single book will suffice for everyone, and this book makes no claim to 
being the exception. But I have attempted to make it useful for the beginner as 
well as the more experienced Commodore-64 BASIC user. The program examples 
cover the areas of home, education, business, hobby, or investment. 

Computer vocabulary has been introduced very gradually. Readers somewhat 
knowledgeable about the vocabulary may find the process repetitious at first, but I 
have found this to be the best method for acquiring a working knowledge of the 
multitude of "jargon." 

The "system" approach has been used so the reader would not be overwhelmed 
with a large number of different application programs. The programs presented are 
intended to be useful as well as instructive. The programs build upon themselves 
so that something that may appear awkward to an experienced programmer is used 
to help explain a concept needed in later chapters. 

Information for the more experienced BASIC user includes a thorough dis- 
cussion of DIF files with application programs. Other items are: random (relative) 
access files, automatic, initial use, file-creation techniques, and tape files. 

You cannot just absorb this information. You must read the book and plan to 
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re-read and/or study the text and programs of parts that are at first unclear. Invest 
time in learning how to get the most out of the Commodore-64. Experienced BASIC 
users may find that they can either skip parts or proceed quickly through certain 
sections. I would encourage everyone to finish the book. 

Finally, a two-diskette set containing all the programs presented in the book 
is available. You can make the diskettes yourself by typing in all the programs, 
but if you just want to see the programs in operation, then you may want to purchase 
the two diskettes. I sincerely hope you enjoy the book and find it instructive. 
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Commodore-64 
keyboard 



Everyone seems to have difficulty with at least some aspect of using a keyboard 
to communicate with a computer. It does not seem to matter which computer it is 
or even how much typing experience a person has. And until better methods of 
human to machine communications are developed, we are stuck with learning to 
effectively use the keyboard. This initial learning process is often very important. 
Some people have become convinced that they cannot work with computers when, 
in fact, they are simply having difficulty with the keyboard. Therefore, it is im- 
perative for new computer users to become as familiar with the keyboard as possible. 

The Commodore keyboard is laid out in a manner very similar to a standard 
typewriter keyboard. The Commodore keyboard contains all the standard keys plus 
some keys designed specifically for the computer. When the computer is first turned 
on, the screen will display all typed keys in upper case mode. This means that all 
letters typed will appear as capital letters. All keys that have two characters on the 
key tops will display the lower character when the key is pressed by itself. The 
upper character will be displayed when the SHIFT key is pressed and held and the 
key containing the desired upper-portion character is also pressed. In other words, 
to display the $ symbol on the screen, the SHIFT key must be pressed and held 
while the key containing the characters $ and 4 is also pressed. Keys that do not 
contain two characters on the key top but do contain graphic characters on the front 
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of the key will display the graphic character that appears on the right side of the 
key whenever the SHlPr key and that key are pressed. 

The blinking box (called the cursor) can be moved around the screen with the 
use of the CRSR keys and the SHIFT keys. Pressing the left/right arrow CRSR key 
by itself will move the cursor to the right. Pressing the SHIFT key and the left/ 
right arrow CRSR key will move the cursor back to the left side of the screen. In 
either direction, when the cursor comes to the end of the line, the cursor will move 
to the opposite side of the screen and either up or down a line. Pressing the up/ 
down arrow CRSR key by itself will move the cursor down the screen. With the 
SHIFT key, the up/down arrow CRSR key moves the cursor up the screen but this 
time it will not go beyond the top of the screen. Pressed by itself, the CLR/HOME 
key immediately "homes" the cursor to the top left hand corner of the screen. Used 
with the SHIFT key, this key clears the screen and then homes the cursor. The 
INST/DEL key by itself will delete characters to the left of the cursor. Used with 
the SHIFT key, the INST/DEL key will insert spaces to the right of the cursor. 

To place the computer into the lower case mode, the Commodore key, in the 
extreme lower left hand corner of the keyboard, and SHIFT key must be pressed. 
While in lower case mode, the keyboard functions very much like a typewriter 
keyboard. The SHIFT key and a letter key will produce a capital letter. Without 
the SHIFT key, letters are displayed in lower case. Keys with two characters on 
the key tops work in the same way they did in upper case mode. The CRSR, CLR/ 
HOME, and INST./DEL keys also function in the same way they did in upper case 
mode. The left side graphic character is displayed by pressing the Commodore key 
and the key containing the graphic symbol. 

Of particular importance is the SHIFT/LOCK key. This key can be used to 
display a number of characters that require the SHIFT key, but should NOT be 
depressed when the RETURN key is used. The RETURN key is used to inform 
the computer that the user has finished entering a line of instructions/information. 
This key is the single most used key on the keyboard and the key that frequently 
causes beginning computer users to wonder why the computer is not doing what 
the user wants the computer to do. Most of the time, the RETURN key will need 
to be pressed after you have finished typing a line even if the line only has a few 
characters on it. The RETURN key informs the computer that the user is finished 
and wants the computer to do something. But if the SHIFT/LOCK key is depressed, 
the RETURN key does not function as a RETURN key. It does not inform the 
computer that the user is finished. This quirk of the Commodore keyboard has 
caused many people to wonder if their computer was not broken. The "quick fix" 
has been to unlock the SHIFT/LOCK key and then press the RETURN key. The 
RUN/STOP key and the RESTORE key sequence can be used to stop certain 
programs or certain operations. 

Finally, new users may experience problems with the auto repeat feature of 
some keys. Depressing those keys (the SPACE BAR for one) for more than a 
fraction of a second causes the key to automatically repeat itself. For certain keys, 
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this feature can be very useful. But until you get used to it, the auto repeat feature 
may cause a few problems. 

Although the standard Commodore BASIC interpreter allows 80 characters on 
a line, it was necessary in the printing of this book to limit the number of characters 
to approximately 57 per line. That is the reason you will see words split in two. 
When you are typing in a line from a listing given in the book, it is preferable to 
continue typing the line for as many characters as the BASIC interpreter will allow, 
regardless of where the break occurs in the listing given in the text. And since the 
Commodore screen display is normally only 40 characters per line, the break in 
the text listing will not match the point at which you will actually be typing on the 
next line. The point is that you do not need to break the line according to the text 
listing if the line is longer than 57 characters. Therefore, do not expect the screen 
listing to look exactly like the listing given in the book. 

■ An Important Note About the 
Program Listings 

There are two types of Program Listings: (1) Listings that appear within chapters, 
and (2) Listings that appear at the end of the chapters. The first type of listings, 
i. e., those that appear within the text of a chapter, have been typeset and are NOT 
taken directly from a computer printout. Since these listings have been typeset, the 
position of characters and spaces relative to other characters and spaces may not 
match the actual position of characters and spaces when entered into the computer. 
However, the second type of listing, i.e., listings that appear at the end of chapters, 
do come directly from a computer printout. These listings have been photocopied 
directly from my program listings. Therefore, in all matters, the listings at the end 
of the chapter should be regarded as authoritative since they come directly from 
working programs. 

I printed these listings using a very good letter quality printer but, unfortunately, 
one that did not have a printwheel with a slash through the zero, two distinct 
characters for the lower case L and the number one (1), or a true up-arrow. There- 
fore, it is imperative that you read the text and look closely at the printouts and 
determine which character to type when entering these programs. The up-arrow 
appears in the printouts as the " (raise to the power of) character. The inadequacy 
of the printwheel was one of the reasons the listings within the chapters were 
typeset. 
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bookware 



The programs in this book are available on two diskettes. Additional file programs 
and documentation are also included. To order your two-diskette set, please send 
$25 ($27.50 outside North America) to: C-64 FILES, AEN, 9525 Lucerne St., 
Ventura, CA 93004. California residents, please add 6% sales tax. Please be certain 
to specify C-64 FILES! 
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introduction to 

the Commodore-64® 

file types 



There are as many definitions of the word file as there are kinds of files. You can 
quickly become confused if your understanding of the term differs from an author's 
intended use, and dictionary definitions are of little use in the computer world of 
today. Before becoming involved with the computer, my understanding of a file 
was limited to information that was kept in a folder in a file cabinet. I think we 
often learn best by trying to fit that which is new into something we already 
understand. Therefore, following this idea, I will try to explain Commodore-64 file 
structure in terms of a file cabinet. 

In a four-drawer file cabinet, one drawer might be for accounts payable, while 
another could be for accounts receivable, a third for personnel information, and the 
fourth for inventory information. These are used only as examples to show that 
each drawer might contain different file types. The file cabinet just as easily can 
contain game instructions in one drawer, receipts in another, name and address 
information in a third, and medical records in the fourth. The idea is of a file cabinet 
containing different types of information. The Commodore-64' s file cabinet is the 
disk drive and diskette (or for those without a disk drive, the datassette recorder 
and cassette tape. The majority of this book will be directed toward the reader with 
one or more disk drives, but the first part of the book will include information 
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relevant to the reader with the datassette recorder). One type of file is a BASIC 
program file. A second file type contains only data. Other file types are identified 
by a three-character extension to their file names. Therefore, each diskette you use 
is like a file cabinet. It is set up to accept and classify many types of files. 

How do you know what files are on your diskettes? We will begin the tutorial 
part of this book by going through all the steps necessary in order to find out just 
what files are on your diskette. (If you are already acquainted with the procedure 
used to start up the computer and disk drive, sometimes called hooting the system, 
you can skip the rest of this paragraph.) First, turn on the disk drive. Second, turn 
on the computer. Third, if you have not yet turned on the monitor or TV, do so 
now. Fourth, take your TEST/DEMO diskette and insert it into the disk drive with 
the label side face up and last to go into the drive. Do not touch the cutout area 
on the diskette. (If you have more than one drive, make sure to put the diskette 
into the drive with a direct connection to the computer.) Make sure the drive door 
is closed properly with the handle down. At this point, you should see the following 
message displayed (the message may vary slightly due to different production runs): 

**** COMMODORE 64 BASIC V2 **** 

64K RAM SYSTEM 38911 BASIC BYTES FREE 

READY. 

Fifth, type: 

LOAD "$",8 

Sixth, after you have finished typing, press the key marked RETURN on the right 
side of the keyboard. The red light on the disk drive should come on. The screen 
will display the message: 

SEARCHING FOR $ 

Then: 

LOADING 

Soon the disk drive will stop, and the light will go out. The statement READY 
should appear. (If you have not been able to get to this point with the computer, 
try another diskette, preferably the diskette marked TEST/DEMO. If switching 
diskettes does not work, you will need to check the manuals for your particular 
system.) 

At this point, type: 

LIST 
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or 



list 

Remember to press the RETURN key when you have finished typing. The Com- 
modore's operating system will recognize either upper case or lower case letters. 
You will see a list with three things on each line of text: 

1. A number representing the size of the file, 

2. The name of the file, 

3. A three-character file designator or extension. 

The extension will indicate what type of file it is; PRG for a BASIC program file, 
SEQ for a file containing only data in sequential order, USR for a user file, and 
REL for a file containing only data in random or relative order. The name, consisting 
of letters and/or possibly numbers, is the actual name of the specific file. The size 
of the file is given as the decimal number of blocks or sectors (sections) in that 
file. In our file cabinet example, this is the same information that might appear on 
each folder. You might label each folder with (1) a name for the information within 
the folder, (2) an extension indicating which drawer it goes in, and (3) how much 
information it contains. 

Most file cabinets do not have a list of all the files stored within them. It would 
be a time-consuming job to update that list every time you added, changed, or 
threw away a file, but Commodore-64's file-management system does just that and 
does it automatically. The diskette's list of everything in the file cabinet is what 
you get when you type LOAD "$",8 and then LIST. Typing this sequence shows 
the list previously created by the file management system. 

How are these files used? What are they? How are they different? Returning 
to the file cabinet, the person in charge of that cabinet might put some rules or 
locks on the drawers. In other words, he or she might say that the PRG file could 
be used only in a certain way or only by certain people. The same could be true 
of the other file types or drawers. This is exactly what Commodore-64's file- 
management system has done. Each file type is used differently and can be used 
only in certain specific ways. PRG files are instructions (also called programs) to 
the computer to do something. Examples of such instructions would be: 

40 IF NUMBER = 5 THEN 5000 

50 GOTO 200 

100 PRINT "HELLO" 

Most SEQ and REL files are not computer instructions but contain information of 
value to people, such as names, addresses, zip codes, payroll deductions, pay rates, 
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or book titles. Often SEQ and REL files are just lists of such information. Such 
lists, of course, would not make sense as instructions to the computer. 

It should be clear that Commodore-64 files are used to store information just 
as you or I use a filing cabinet, that there are different types of files, and that they 
are used for different purposes. In the next chapter, we will look more closely at 
the file types and how they are used. In subsequent chapters, we will look at two 
of those file types, SEQ and REL data files, and examine how information is kept, 
how that information is used, and how those files are created. The latter, creating 
files, is the main emphasis of this book and will occupy the remaining chapters. If 
you want to know how to create the BASIC files (programs), you will need to learn 
programming. Effectively using the data files requires some knowledge of how to 
program in BASIC. The programs discussed in this book will be BASIC programs, 
and the discussion will be such that anyone willing to try the examples should learn 
to program, as well as learn to create and use data files. In other words, although 
the main emphasis of this book is on data files, you will learn a certain amount of 
programming — BASIC program files, in order to be able to create, display, and 
change data files. And I repeat. Anyone willing to try all the examples, and read 
carefully through the discussion of the examples, can and will learn to program 
and thus make effective use of data files. Individuals, no matter what their ages, 
backgrounds, or experiences, can learn the information presented in this book. 
Programming and file manipulation are a matter of learning how to give instructions 
to the computer in a manner the computer can understand; or, more simply, pro- 
gramming is learning how to talk to the computer and tell it what you want it to 
do. 



QUEST/ONS 

1. How are Commodore-64 file types identified? 

2. What extension is used to identify BASIC program files? 

3. What extensions are used to identify data files? 

4. Which file type will this book emphasize? 

5. What sequence should you type in order to see a list of the files on a diskette? 

6. Which files contain instructions to the computer? 

7. Which files contain information of value to people? 

8. What information is shown when you ask to see a list of the files on a diskette? 
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ANSWERS 



1. By the extension to their file names 

2. PRG 

3. SEQ or REL data files 

4. Data files 

5. LOAD "$",8 
LIST 

6. BASIC or other program language files 

7. Data files 

8. The size of the file, the file name, and the extension to the file name (or file 
type) 
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BASIC 

program files 



In this chapter, we are going to take a closer look at the first main file type. This 
would be the same as opening our file cabinet's top drawer for a quick look at what 
is kept inside. 

We begin with what is probably the most common type of file, the BASIC 
file. Some of you might already be confused because you have always referred to 
BASIC "programs" rather than files. In reality, they are both. Suppose one drawer 
in the file cabinet is used for games. Each folder contains the rules or instructions 
for playing a different game. Most of the time, you would simply refer to the 
folders as games, not files, yet they are really both games and files. When you 
have taken one folder out of the file cabinet and are using the instructions to play 
the game, it is not a file; however, when you are finished with the game and want 
to put it back in its place, it becomes a file, one of many game files. 

The same is true of BASIC program files. The top drawer contains only BASIC 
programs or computer instructions (rules). When the computer is using the instruc- 
tions in one of those BASIC "folders," the instructions are a program, but when 
the computer is not using the instructions, the instructions are stored as files. The 
important thing to understand is that BASIC files contain only computer instructions 
(programs). Some of those files contain larger or longer sets of computer instructions 
than others, but a BASIC file can only be a set of instructions for the computer or, 
therefore, a computer program. The second limitation of the top drawer, or "PRG" 
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file, is that it can only be a certain kind of computer program, a BASIC computer 
program, not a FORTRAN computer program or a COBOL computer program. 
(FORTRAN and COBOL are two other computer languages, just as BASIC is a 
computer language.) 

Let's look at the rules for using these BASIC computer program files. In our 
mythical office, we have two main secretaries that can use BASIC program files. 
Secretary number one can only go and get the file (LOAD). Secretary number two 
can only put the file away (SAVE). These two secretaries or commands do not 
have access to other drawers or file types. 

Secretary number two (SAVE) can only put the file (program) currently in the 
computer's memory in the file cabinet (disk). 

Secretary number one (LOAD) is only able to get the file (program) from the 
file cabinet (disk) and put it on the boss's desk (in the computer's memory). The 
load command goes to the diskette and gets a specific file. In order to know which 
file to get, the LOAD command must be given the specific name of the file: LOAD 
"MATHDRILL",8 or LOAD "CHECKER",8. The quotation marks indicate the 
beginning and ending of the file name. The number 8 represents the disk drive. 
The disk drive is device number 8. (The keyboard is device number 0, the cassette 
recorder, device number 1, modems are assigned device number 2, the screen is 
device number 3, printers are device numbers 4 or 5, usually 4, and disk drives 
are device numbers 8 through 11, usually just number 8. Nobody knows what 
happened to device numbers 6 and 7!) 

If the file name is not spelled exactly the way it is spelled in the list of all the 
files on the diskette (in the file cabinet), then the LOAD command or secretary will 
not be able to find the file and will come back and tell you "FILE NOT FOUND 
ERROR". (The LOAD command will add the extension PRO and look for the file 
name with that extension.) On the other hand, if the LOAD command does have 
the exact name, it will go to the disk and get a copy of the file. Notice the use of 
the word "copy." The LOAD command does not actually go and remove the file 
from the diskette, as a secretary would remove a file from the file cabinet. The 
LOAD conmiand takes only a copy so that the original always remains on the 
diskette. The copy of the file is loaded into the computer's memory, similar to a 
secretary getting a file and putting it on the boss's desk. You, the boss, must then 
decide what you want to do with the file. If you want to open it and look at it, you 
use some form of the LIST conunand. (Type LIST or LIST 100-200, etc.) If you 
want to see the program in operation, type RUN. 

Secretaries, or BASIC file commands, must be given a specific file name. 
Usually, after using the LOAD command, you will want to look at the instructions 
(LIST) and perhaps change, add, or remove some instructions. When you have 
finished, you may want to keep what you have done by giving the file to secretary 
number two (SAVE) and telling the secretary the exact name you want this file 
kept under. If you have made changes but still want to keep the original currenfly 
on the disk, then the secretary must be informed of a new file name. If the secretary 
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uses the same file name as the file currently on the diskette, the red light on the 
disk drive will begin blinking and the revised file will not be saved (unless you 
have provided additional information indicating that you do want the old file re- 
placed). This may not be what you want, so be careful what name you use (the 
SAVE command). 

Let's actually try some of these commands. You will need the TEST/DEMO 
diskette and a new diskette. If you do not have a new diskette, you should: (1) 
wait until you do have a new diskette before doing the next steps, or (2) use a 
diskette that you know has some room on it and skip the first step below, or (3) 
use an old diskette that contains information you no longer need. Use the information 
from Chapter 1 to get the computer working; i.e., to boot the system. (Review the 
procedure in Chapter 1, if necessary.) If you have the TEST/DEMO diskette in the 
drive, remove the TEST/DEMO diskette and insert a blank or new diskette. If you 
do not remove the TEST/DEMO diskette, you can destroy the information on it. 
When you get the READY prompt on the screen and have chosen and inserted your 
blank diskette, type the following carefully. (Remember to press the key marked 
RETURN after each entry. You can use either upper case or lower case.) 

OPEN 15,8,15 

You should see: 
READY 

Then, with a blank diskette in the disk drive, type the following exacfly as shown— 
without spaces: 

PRINT#15,"NEW0:FORM.10-20-84,84" 

Remember to press the key labeled RETURN to indicate to the computer that you 
have finished typing the above Une. The disk drive makes a noise and the red light 
comes on. The computer is transferring numerical information onto the diskette to 
enable the computer to later find locations on that diskette. In about a minute, the 
disk drive will stop and the red light will go out. Remember, this first step destroys 
any existing information on an old diskette. This step is used to format a new 
diskette or reformat an old diskette so that the diskette can store files. The FORMAT 
conmiand is usually used only once on each diskette. A second use erases whatever 
is currently on the diskette. 

All the characters you have typed in this formatting sequence have a specific 
meaning. The OPEN command instructs the computer to open communication to 
whatever file, device, and channel are specified by the numbers that follow it. In 
the above instruction, file number 15 is used to coincide with the assigned (and 
therefore nonarbitrary) command chatmel number. The first 15 could have been 
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any number between 1 and 255. But since the third number had to be a 15, it seems 
logical and perhaps less confusing to use the same number for both the file number 
and the channel number. As we saw previously, the device number (the middle 
number in the OPEN statement) for the disk drive is usually 8. Therefore, the 
conunand OPEN 15,8,15 instructs the computer to initiate communication through 
file number 15 on device number 8 over (conmiand) channel number 15. 

The PRINT instruction has more strict syntax. No space may exist between 
the T in PRINT and the # symbol. The comma and opening quotation mark are 
also required. The word NEW instructs the computer that a new diskette is to be 
formatted. This instruction may be abbreviated with just the first letter N. The zero 
that follows the NEW instruction is the drive number of device 8 (the disk drive). 
Zero is used for the first drive and 1 may theoretically be used for a second drive. 
(Use of the 1 is not possible with two 1541 drives. An alternative for a second 
drive is to change the device number to some number other than 8. The 1541 User's 
Manual gives instructions on changing the default device number 8 by either typing 
in some instructions or by physically opening the case and cutting a wire.) 

After the zero, a colon is used to initiate the separation of the diskette's actual 
name ftom all the other parameters. Here, the user has some choice in the name. 
The name may be only sixteen characters in length and some control, escape, or 
graphic characters may not work properly. But any combination of the twenty-six 
letters of the alphabet and/or ten digits through 9 should work without a problem. 

The final part of this sequence is another unique feature to the Commodore 
line of computers. First, a comma is used to indicate that the diskette's name has 
been entered. Then, a two-digit code is allowed. This code is used throughout the 
formatting of the diskette so that the computer can always know if diskettes have 
been changed since the last diskette access. Therefore, no two diskettes should have 
the same two-digit code. The reason for this seeming complexity is the great 
flexibility the Commodore-64 possesses. A large number of devices or peripherals 
may be connected to the Commodore-64 with few external connections to the 
computer itself. Persistent and carefiil programmers may completely control the 
access to any diskette. The price for this type of flexibility is a greater degree of 
progranmier knowledge and persistence. 

Commodore has provided a degree of help by way of the DOS (Disk Operating 
System) Wedge or the DOS Support Program. This utility program makes it easier 
to use the BASIC file commands, or secretaries, and provides additional commands. 
To load the DOS Wedge program, remove your newly formatted diskette and insert 
the TEST/DEMO diskette. Then type: 

LOAD "C-64 WEDGE",8 

When the READY prompt returns, type: 

RUN 
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/ You should see: 

DOS MANAGER V5. 1/07 1382 
BY BOB FAIRBAIRN 
(C) 1982 COMMODORE BUSINESS MACHINES 
READY 



(Some of your numbers may be different depending on when you received your 
copy of the DOS Wedge.) 

After loading the DOS Wedge, the LOAD and SAVE commands will work 
the same as before, but less syntax is required to achieve the same results. By 
loading the DOS Wedge, we have instructed the computer that we are going to be 
primarily using the disk drive. In other words, we have put the computer into a 
disk drive default mode so that it is not necessary to use the disk drive device 
number 8. It is also not necessary to type the characters LOAD or SAVE in order 
to accomplish those tasks. The following chart may make the point clearer. 



Purpose 



Before DOS Wedge 
you had to type: 



After DOS Wedge 
you only type: 



To load a 

program: 
To save a 

program: 
To list the files 

on a diskette: 

To format 
diskette: 

To run a program 
directly from 
diskette: 



LOAD "TEST",8 

SAVE "PR0GRAM",8 

LOAD "$",8 
LIST 



/TEST 

•«-PROGRAM 
@$ 



OPEN 15,8,15 

PRINT#15,"N0:FILE NAME.XX" @N:FILE NAME,XX 

(No single step is available before 

DOS Wedge) t MY PROGRAM 



Because the DOS Wedge makes things easier and even provides us with additional 
commands, throughout this book, wherever possible, all programs presented will 
use the DOS Wedge syntax instead of the syntax necessary without the DOS Wedge. 
This means that you will need to load the DOS Wedge before using any of the 
programs presented in this book or that you will need to translate the syntax given 
in the programs into the required syntax for programs to work without the DOS 
Wedge. If you did not receive a copy of the DOS Wedge on your TEST/DEMO 
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diskette, or did not get a TEST/DEMO diskette with your disk drive, I would 
suggest that you return to your dealer and ask for a copy of the DOS Wedge or 
the TEST/DEMO diskette. 

Now, let's actually try some of these commands. Remove the TEST/DEMO 
diskette (or whatever diskette you used to load the DOS Wedge) and insert your 
newly formatted diskette (the diskette named FORM. 10-20-84). Now type: 

NEW 

10 PRINT 

20 PRINT "HELLO" 

40 PRINT "I AM THE COMMODORE-64" 

Check your typing to be sure you have typed everything exactly the way it is shown 
above. The word NEW (in this case) erases any BASIC program that is already in 
the computer's memory. It does not do anything to the diskette or any information 
stored on a diskette. The numbers 10, 20, and 40 are line numbers in a BASIC 
program. Line numbers can be any number from to 65535. Usually, the numbers 
chosen are not consecutive in order to allow other lines to be added, if necessary. 
The word PRINT instructs the computer to display on the screen whatever follows 
it and is between the quotation marks. So, since nothing follows the word PRINT 
in line 1 0, a blank line will be displayed. Line 20 will cause the computer to display 
the word "HELLO". Now, type the word RUN and press the RETURN key. Below 
the word RUN, you should see: (1) a blank line, (2) the words between the quotation 
marks followed by a blank line, and (3) the READY prompt. 

HELLO 

I AM THE COMMODORE-64 
READY 

You have just written and executed a BASIC program. The program is still in the 
computer's memory, but if you were to turn off the computer now, you would lose 
that program. It would be lost because it has not been permanently saved on tape 
or diskette. We will take care of that with our next step. 

The third step is to transfer (SAVE) the program in the computer's memory 
out to a file on the diskette (or tape). This is easily accomplished by giving the file 
to the SAVE secretary and letting the secretary do all the work. For those using a 
disk drive and the DOS Wedge, simply type: 

*-HELLO 

Or, for those using tape: 
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1. Type SAVE "HELLO" 

2. Follow the screen instructions 

A message similar to "SAVING HELLO 00,OK,00,00" should appear on the screen. 
You do not have to add the file type indicator since this command, or secretary, 
knows to add the standard indicator of PRC for BASIC programs. The secretary 
or SAVE command has transferred a copy of the contents of the computer's program 
memory to the diskette (or tape) and stored it in the file called "HELLO". If you 
want to see the names of the files on the diskette while working under the DOS 
Wedge, you need to type the command: 

@$ (or >$) 

You should see: 

"FORM. 10-20-84 " 84 2A 

1 "HELLO" PRG 
663 BLOCKS FREE 

To see what is in the computer's memory, type: 
LIST 

The display should show; 
10 PRINT 

20 PRINT "HELLO" 

40 PRINT "I AM THE COMMODORE-64" 
READY 

LIST is similar to @$ under the DOS Wedge in that @$ shows what is on a 
diskette, and LIST shows what is in the computer's memory. Now, type: 

NEW 
LIST 

The program is now gone and there is nothing in the computer's memory. To bring 
it back, follow the directions for your particular system. For DOS Wedge disk drive 
users, type: 

/HELLO 

For tape users: 
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1. Rewind tape. 

2. Type: LOAD "HELLO" 

3. When the screen returns and displays the message "FOUND HELLO", press 
either the space bar, CTRL key, or the Commodore key in the lower left hand 
comer. 

Then for everyone when the screen displays "READY", type: 
LIST 

The program is back. Immediately after the /HELLO, the disk drive comes on for 
a brief time. The computer is instructed to go to the diskette, bring in a copy of 
the file called HELLO, and store that copy in its memory. When you type LIST, 
you are telling the computer to show you what it has in its memory. Therefore, 
the program now actually exists in two places: (1) in the computer's memory, and 
(2) as a file on the diskette (or tape). Type carefully and add a fourth line like this: 

60 PRINT "I AM A SMART COMPUTER" 

Then, for disk drive users, type: 
*-HELL02 

For tape users: 

1. Type SAVE "HELL02" 

2. Follow the screen instructions. 

For disk users, in order to see this new file on the diskette, type: 
@$ 

Now, the list shows: 

"FOR M.I 0-20-84 " 84 2A 

1 "HELLO" PRG 
1 "HELL02" PRG 
662 BLOCKS FREE 

There are two files on the diskette. Both are BASIC program files (programs written 
using the BASIC language). After you type <— HELL02 (i.e., give the HELL02 
file to the SAVE secretary), the disk drive comes on briefly while the computer 
transfers a copy of the contents of its memory to the diskette. The command @$ 
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shows the new list of files on the diskette. Finally, type: 

NEW 
LIST 

The program is gone. Type: 
t HELL02 

and the screen shows: 
HELLO 

I AM THE COMMODORE-64 
I AM A SMART COMPUTER 

READY 

Now, type: 
LIST 

and the full program is back. Type: 
RUN 

(since the instructions are already in memory, a file name is not necessary), and 
you should get the same message. 

First, you erase the program in the computer's memory (NEW), and then ask 
to see if there is anything left in the computer's memory (LIST) in order to verify 
what you did. Next, f HELL02 tells the computer to access the diskette, load the 
file called HELL02 into its memory, and begin operation according to the file's 
instructions. LIST shows that the program is back in memory. To prove it, RUN 
tells the computer to again operate according to the program's instructions. 

Let's review from the viewpoint of the secretaries and file cabinet. Remember, 
so far we have two main secretaries (and with the DOS Wedge we get at least one 
more): number one (LOAD or /), number two (SAVE or <— ), and number three 
(LOAD and RUN or f ). Remember that there is no comparable single- word 
command outside the DOS Wedge that loads a file from diskette and immediately 
begins execution of that program. For these secretaries to do anything, they must 
be given a file name: 

/MATH. DRILL (loads MATH. DRILL into the computer's memory from diskette) 

t CHECKERS (loads CHECKERS into the computer's memory from diskette 
and immediately begins execution of the program's instructions) 
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<— ANYTHING (save the contents of the computer's program memory out to 
the diskette with the file name of ANYTHING) 

BASIC file commands and DOS Wedge commands must be given a specific file 
name. 

There are other BASIC and DOS Wedge commands that can be used with files. 
The following chart summarizes these commands: 



Purpose 



Before DOS Wedge 
you had to type: 



After DOS Wedge 
you only type: 



To load a 

program: 
To save a 

program: 
To list the files on 

a diskette: 

To format 
diskette: 

To run a program 
directly from 
diskette: 

To change the 
name of a file: 

To make a 
backup copy of 
a file on the 
same diskette: 

To scratch 
(delete) files 
from a diskette: 

To switch 
diskettes (i.e. 
initialize a 
change of 
diskettes): 



LOAD "TEST", 8 

SAVE "PROGRAM", 8 

LOAD "$",8 
LIST 

OPEN 15,8,15 

PRINT#15,"N0:FILE NAME,XX" 

(No single step is available before 
DOS Wedge) 

OPEN 15,8,15 

PRINT# 1 5 ,"R0:FILE2 = FILE 1" 



OPEN 15,8,15 

PRINT# 1 5 ,"C0:FILE2 = 0:FILEI 



OPEN 15,8,15 

PRINT#15,"S0:FILENAME" 



/TEST 

«i-PROGRAM 

@$ 

@N:FILE NAME,XX 
t MY PROGRAM 
@R:FILE2 = FILE1 



@C:FILE2 = FILE1 



@S:FILENAME 



OPEN 15,8,15 
PRINT#15,"r' 



@I 
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These additional commands are generally less used but are good to have when you 
need them. 

I have used the concept of secretaries for a specific reason. I believe it gives 
the impression that BASIC file commands and DOS Wedge commands are there 
to help you. In the examples, the secretaries are really BASIC file commands. 
BASIC file commands do certain things for you that a number of personal secretaries 
might do. The only limitation is that you must be exact and specific with the 
secretaries (commands). File commands must be used with a specific file name. 

We have covered a lot of new information in this chapter. If something is not 
clear, you should review it and use the Commodore-64 personal computer and disk 
drive to better understand these concepts. 



QUESTIONS 

1. True or False: BASIC programs are stored on diskette as files. 

2. What DOS Wedge command is used to show a list of files on a diskette? 

3. What does DOS stand for? 

4. How many main DOS Wedge commands are used with BASIC program files? 

5. Which DOS Wedge command gets the program from diskette and immediately 
begins execution or operation of the program? 

6. Which DOS Wedge file command stores programs on the diskette as files? 

7. True or False: The LOAD command actually removes the program from 
the diskette and loads it into the computer's memory. 

8. What happens when you save back to diskette a program you have changed, 
and you save it under the same name? 

9. True or False: LIST shows what is on the diskette. 

10. What DOS Wedge command is used to prepare a new diskette to receive files? 

11. True or False: BASIC programs are never files. 

12. Explain what NEW (by itself) does. 
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ANSWERS 



1. True 

2. @$ 

3. Disk Operating System 

4. 3 

5. t with a file name 

6. with a file name 

7. False, it takes a copy. 

8. The previous version is not erased and replaced with the new version unless 
you have added the REPLACE character. 

9. False 

10. @N:FILENAME,XX 

11. False 

12. Erases whatever is in the computer's memory 
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data file 
introduction 



Using the analogy of the file cabinet example in the last two chapters, this chapter 
is a quick look inside the DATA file drawer and a superficial look inside the two 
different kinds of file folders in this drawer. We will examine the characteristics 
that are common to both kinds of DATA files and look at how you can access those 
files. 

Of the different types of files, we have seen that one type contains instructions 
(called programs) for the computer: BASIC program files. One of the other types 
usually contains information for people rather than machines. By this, I do not 
mean that the computer cannot make use of the information, but that the information 
usually is not in the form of direct instructions for the computer. An example of 
an instruction for the computer is: 

20 PRINT "HELLO, HOW ARE YOU?" 

An example of information that is not in the form of a computer instruction would 
be: 

Title: Commodorc-64 Data Files: A BASIC Tutorial 
Author: David Miller 
Publisher: Reston Publishing Co. 
Address: Reston, Va. 
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This last example is the kind of information usually kept in a data file. Before we 
get into the process of actually storing and retrieving data files, we need to understand 
the main difference between the two kinds of data files. 

Data files have two ways of storing and retrieving information. (Remember 
that the information really stays on the diskette and we are just getting a copy of 
the information!) These two ways of storing and retrieving information are sequential 
access and random access. A sequential access data file basically means that the 
information stored in the file is kept in sequential order. A random access data file 
usually means that each part of the file is divided equally and can be reached directly 
and at random instead of going through all previous records. The process of looking 
at each record in order (sequence) to decide if it is the record you want is a 
characteristic of sequential files and can require more time than the direct method 
of random access files. 

Commodore refers to random access files as relative files. But the term "rel- 
ative" in the computer world often means "in relation to" and can be misleading 
when used as the name of the method for directly accessing records within a file. 
To further confuse matters, Commodore also provides a subset of their relative files 
which they call random files. Since Commodore's random files are basically an 
elementary version of their relative files, we will not cover them in a direct way. 
Anything that can be done with Commodore's random files in the BASIC language 
can be accomplished with relative files and in a much easier way. Therefore, any 
mention in this book of random files is meant to refer to Commodore's relative 
files, not Commodore's random files. In other words, whenever I use the term 
"random access," I am talking about the same thing that Conmiodoie is when they 
refer to relative files. And, after checking with individuals at Commodore, I have 
decided to use the term "random" rather than use Commodore's term of "relative" 
because, in the long run, readers of this book will be less confused by a correct 
application of the appropriate term. 

The basic difference between sequential data files and random data files is 
somewhat like the difference between a cassette tape and a phonograph record. If 
I want to find a specific song on a cassette tape, even using the best available tape 
deck, I must begin at the current location of the tape and proceed either forward 
or backward, passing over all intervening songs until I have found the song I want. 
The process proceeds in sequence, one song after another. For example, if I want 
to play only the fourth song on the tape, I would have to advance the tape through 
the first, second, and third songs until I get to the fourth one. On the other hand, 
if the songs are on a phonograph record, all I would have to do to play the fourth 
song would be to place the phono cartridge containing the needle at the start of the 
fourth division instead of at the start of the first song. I can do that because I am 
able to clearly see the divisions between songs and because those individual songs 
are directly accessible. I do not have to go through the grooves of the first three 
songs to get to the fourth. And moving the needle by hand takes only seconds. So 
imagine that the data drawer contains two basic divisions: the first division contains 
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files that operate in a way similar to cassette tapes, while the second division contains 
files that operate like phonograph records in the way described. 

But these two kinds of data files do have things in common, just as tapes have 
things in common with phono records. The most obvious common characteristic 
is that they both usually contain information that is not in the form of instructions 
for the computer. In other words, they contain information like lists of things, 
addresses, receipts, and inventories. Second, both files make use of some of the 
same BASIC file commands, but with different parameters. 

Because these data files are not computer instructions, they cannot be used in 
the same manner as BASIC program files. In other words, you cannot RUN a data 
file, SAVE, or LOAD it. Those three commands, when combined with a file name, 
are the computer's means of access to BASIC disk files. The obvious question, 
then, is that if you cannot use RUN, SAVE, or LOAD with data files, how does 
the computer get the information on the diskette in a data file or back off the diskette 
from a data file? 

To gain access to data files, you must use certain BASIC file commands in 
specific ways, depending on the kind of data file you are accessing. Both sequential 
and random access data files primarily use four types of commands: (1) OPEN, (2) 
CLOSE, (3) some way of reading the file (INPUT# or GET#), and (4) some 
method of writing to the file (PRINT#). Future chapters will examine in detail how 
each of these is to be used for either of the two kinds of data files. For now, you 
only need to understand the essential task of each conmiand. 

Again, the example of the filing cabinet is useful. In much the same way that 
a secretary must open a file folder removed from the filing cabinet before making 
use of any information contained in the file, so also must all data files be opened 
before the information they contain can be put to use. And as the secretary should 
properly close the file folder before replacing it in the filing cabinet, all data files 
should be closed before ending the program or turning off the computer. If a secretary 
does not close the file folder, some information might drop out and get lost. The 
same is true if data files are not properly closed. This is usually only the case after 
new information has been written to the file and the file not closed. Loss of infor- 
mation should not occur after a data file has only been read and not closed. 

INPUT#, PRINT#, or GET# are the main processes by which information 
is either read firom or written to the file. If you only want to see information akeady 
in a data file, the BASIC file commands INPUT# and GET# are the commands 
you would use. If you want to add information to the file or create a new file, use 
the BASIC file conunand PRINT#. 

At this point, let's try out some of this information on the computer. Turn on 
the computer and the disk drive. (Refer to Chapters 1 and 2 if you are not sure 
what to do.) When the cursor (blinking box) and the READY prompt appears, take 
the TEST/DEMO diskette, insert it in the disk drive, and type carefiiUy, remem- 
bering to press the RETURN key after each entry. Below the READY prompt, 
type: 
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LOAD "C-64 WEDGE",8 



Remember, you can use either upper case or lower case letters. The disk will come 
on, and after a short time you will see the READY prompt. Then type: 

RUN 

You should see: 

DOS MANAGER V5.1/071382 

BY BOB FAIRBAIRN 
(C) 1982 COMMODORE BUSINESS MACHINES 

READY 

The numbers may be different depending on which version you are using, but a 
similar message should appear. The READY is the BASIC prompt indicating that 
the system is ready for you to use. Remove the TEST/DEMO diskette, take the 
diskette that you formatted in the last chapter, and place it in the disk drive. Now, 
type: 

@$ 

You should see: 

"FOR M.I 0-20-84 " 84 2 A 

1 "HELLO" PRC 
1 "HELL02" PRC 
662 BLOCKS FREE 

Remember, @$ shows the names of the files on the diskette. Now, type: 
NEW 

This clears the computer's memory. 

100 REM ***~DATA FILE EXAMPLE-*** 
110 : 
120 : 

130 REM **-FILE OUTPUT ROUTINE--** 

140 OPEN 2,8,2, "0:ADDRESS FILE,SEQ,WRITE" 

150 PRINT#2,"COMMODORE-64 IS A BRIGHT COMPUTER" 

160 CLOSE 2 
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For those using tape, the program should read: 

100 REM ***--DATA FILE EXAMPLE--*** 
110 : 
120 : 

130 REM **-FILE OUTPUT ROUTINE-** 
140 OPEN 2,1,1, "ADDRESS FILE" 

150 PRINT#2,"COMMODORE-64 IS A BRIGHT COMPUTER" 
160 CLOSE 2 

Check your typing very carefully. If you make a mistake, you can use the edit keys 
(the CRSR keys and the INST/DEL key) to correct the mistake, or type the entire 
line over again. The computer will place the line in the proper sequence. Once 
your program matches the program above, type: 

^-EXAMPLE 

Or, for tape users: 

SAVE "EXAMPLE" 

and follow the screen prompts! 

The program is now saved on the diskette (or tape) under the name EXAMPLE. 
Disk users should type: 

@$ 

And you now see: 

"FORM. 10-20-84 " 84 2A 

1 "HELLO" PRC 
1 "HELL02" PRC 
1 "EXAMPLE" PRC 
661 BLOCKS FREE 

Next type: 

LIST 

just to see that the program is still in the computer's memory. 
Then, type: 

RUN 
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The disk drive comes on, but little happens on the screen. Once again, type: 
@$ 

This time you get: 

"FORM. 10-20-84 " 84 2A 

1 "HELLO" PRG 
1 "HELL02" PRG 
1 "EXAMPLE" PRG 
1 "ADDRESS FILE" SEQ 
660 BLOCKS FREE 

We have created a data file! Even though you did not actually see the data file 
being written to the diskette, that is exactly what happened immediately after you 
typed RUN and pressed the RETURN key. The reason you did not see anything 
on the screen is that our BASIC program told the computer to print our information 
to the disk (or tape) rather than to the screen. 

We will look at this program to see what each line does and what the correct 
syntax for each should be. Line 100 provides a name for this program. It is a good 
practice to make the name of the program similar to the file name under which the 
program is saved on disk. The one problem is that the file name cannot be more 
than sixteen characters long, while there is no limit to the length the program name 
can be. REM is a BASIC reserved word meaning remark, indicating that what 
follows is only a comment by the programmer and will not be executed by the 
computer. The characters and words ***— DATA FILE EXAMPLE—** are the 
actual comment. Lines 1 10 and 120 contain colons that can be used to help separate 
sections of programs. Line 130 names the routine to follow. Again, it is a good 
idea to identify, with a REM statement, what it is that you are about to do. The 
remark in this case indicates that we are creating a roufine to write information to 
the disk (or tape). 

Line 140 tells the computer whether we are going to use the disk or the tape. 
For disk, the syntax is OPEN 2,8,2, and for tape, the syntax is OPEN 2,1,1. The 
first number represents an arbitrary number between 1 and 255 (usually between 1 
and 127) for the number of the file we are going to be using. This number can 
change from program to program even though we are accessing the same physical 
file. In other words, the file number is not written to the diskette with the file name. 
It is just a number we temporarily assign to the file so that we can refer to that file 
by number rather than by name. The second number, either an 8 or a 1 , refers to 
the number of the device we are using to save the data file. The disk drive's number 
is 8, and the tape drive's number is 1. These are usually unchanging numbers and 
should be memorized as such for future use. 
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The last number represents two different things, depending on the device being 
referenced. The number following the 8 (i.e., 2) is a channel number on which the 
data will be transmitted to the disk. This number is usually between 2 and 14. 
Since it does not matter which channel we use, it is often recommended that the 
channel number be the same number as that used for the file number (if the file 
number is between 2 and 14). For tape users, the number following the 1 (the 
device number) does not represent a channel number. Instead, it represents the type 
of operation we will be performing on this data file. If the number is a (zero), 
the computer knows to read information from the data file. If the number is a 1 
(as in our current program), the computer is instructed to write information to the 
data file and place a special marker, called an End-Of-File marker (EOF), at the 
end of the information, indicating that all information has been written. If the 
number is a 2, then the computer is instructed to do the same as with a 1, but to 
•place an End-Of-Tape (EOT) marker instead of the End-Of-File marker. 

We are going to open a file called "ADDRESS FILE". Notice the quotation 
marks. These quotation marks must be included in the program statements. That 
is how the computer understands where the specific file information begins and 
ends. The 0: indicates the drive numbers for the first drive, 1 for drive 2 (not 
physically possible on the 64 equipped with two 1541 drives. Instead, the device 
number of one of the 1541s should be changed according to the instructions given 
in the 1541 User s Munuai). Next, we tell the computer what type of file we want 
ADDRESS FILE to be: SEQ (for a SEQuential access file). Finally, we must instruct 
the computer how we are going to be using that file: WRITE, meaning that we are 
going to write information into the file rather than read information from the file. 

Then, we tell the computer that we are going to be adding information to the 
file with the PRINT#2 statement. Line 1 50 also tells the computer what information 
to put in the data file. Anything between the quotation marks will be written to the 
data file on the diskette. The PRINT statement in this line does not print the string 
(the information between the quotation marks) on the screen when the program is 
RUN, as would normally be expected. This PRINT statement contains the file 
number telling the computer to print to the diskette rather than to the screen. Line 
160 contains the computer instruction to CLOSE the file whose number is 2. 

We have now put information onto a diskette. The next task is to be able to 
read back from the diskette what we wrote. There are a number of different ways 
that we can read back the information, but for now we will use the single-program 
approach and add more lines to the program that wrote the information to the 
diskette. Type: 

LIST 

The program should still be in the computer's memory. Add the following lines 
carefully: 
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170 : 
180 : 

190 REM **--FILE INPUT ROUTINE--** 

200 OPEN 2,8,2,"0:ADDRESS FILE,SEQ,READ" 

210 INPUT#2,LINE$ 

220 CLOSE 2 

230 : 

240 : 

250 REM **-DISPLAY ROUTINE--** 
260 PRINT CHR$(147):REM CLR/HOME 
270 FOR I = 1 TO 5 

280 PRINT CHR$(17);:REM CURSOR DOWN 

290 NEXT I 

300 PRINT LINES 

310 END 

For tape users, line 200 should read: 
200 OPEN 2,1,0,"ADDRESS FILE" 
And add line 185: 

185 INPUT "REWIND TAPE. PRESS RETURN ";L$ 

All the other lines are the same. 
Check your typing. Then, type: 

SAVE "@0:EXAMPLE",8 

Or, using the DOS Wedge syntax: 
^@0: EXAMPLE 

Tape users do not need to use the @ (replace) symbol. Disk users must use the @ 
(replace) symbol, since the disk will not write over an existing file without that 
symbol. This replaces the previous and shorter version of our program. Finally, 
type: 

RUN 

No file name is necessary since the program, besides being on the diskette (or tape), 
is also still in the computer's memory. This time the disk drive will come on for 
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a brief time; then the screen will go blank, and the words "COMMODORE-64 IS 
A BRIGHT COMPUTER" will be printed five lines from the top of the screen. 

Let's examine each line of the additional program lines. Lines 170 and 180 
provide a separation between the file output routine and the file input routine. Line 
190 names the next routine. Line 200 informs the computer that we want to open 
the file called "ADDRESS FILE" in order to be able to read the contents of that 
file. We need to reopen the file in order to start at the beginning of the file so we 
can read from the file what we have just written. We also want the computer to 
identify that file as our number 2 file. We can use the number 2 since we closed 
the original number 2 after we finished writing our information to it. Line 210 then 
tells the computer to bring in, from that number 2 file (INPUT#2), a copy of the 
first (and in this case the only) piece of information in the file and store that 
information in the string variable memory location we have labeled LINES. 

A string variable is identified in BASIC by a letter or letters followed by the 
dollar sign, $. Variables are names assigned to locations in the computer's memory. 
String variables can contain just about any value {i.e., numbers, letters, punctuation, 
and so forth). They are referred to as "variables" because their values may vary 
within a program; i.e., they are not constant. An example of a string variable might 
be NAMESS, where the first value of NAMES$ is "ANDY", the second value is 
"MARY", the third value is "PAUL", and the fourth value is "JANE". Therefore, 
we are storing the contents of the first and only piece of information in the ADDRESS 
FILE file in the computer's memory location labeled LINES. 

Line 220 is the same as line 160. We close the file before proceeding to the 
display routine. Lines 230 and 240 again provide the separation between the various 
parts of the program, while line 250 names the next portion of the program. 

Line 260 instructs the computer to clear the screen by printing the value of 
CHR$(147). The value of the CLEAR SCREEN/HOME instruction as set by the 
code for all characters is 147. The code used in the Commodore-64 and most micros 
is called ASCII. It sets a decimal and hexadecimal value for all characters used. 
If you look on page 136 of the Commodore-64 User's Guide and go down the page 
under the column PRINTS until you find the key marked with CLR above the word 
HOME, you will find a column to the right with the number 147. Therefore, the 
value of the CLR/HOME key is 147. The reserved characters CHRS can be used 
with parentheses and a decimal value to display nonalphanumeric characters on the 
screen. 

Commodore provides another method by allowing you to actually enter non- 
alphanumeric characters into a program line. These characters are then displayed 
as graphic symbols both on the screen and in a printed listing. 1 will avoid using 
these graphic symbols because they are not descriptive of their function. In addition 
to remembering the purpose of the function {i.e., CLR/HOME means clearing the 
screen and placing the cursor in the upper left hand comer of the screen), the use 
of graphic symbols requires pure memorization of which symbol goes with which 
function. The same can be said for the decimal values of these nonalphanumeric 
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keys. In the next chapter, I will show a method that can make use of CHR$ values 
in a descriptive way. 

One oflier major problem occurs with the use of Commodore's graphic symbols. 
Many printers will not actually display these symbols properly. Unless you have 
the Commodore printer or a printer with the right interface (equipment that translates 
information from the computer to the printer), you are likely to get a variety of 
strange characters and/or sounds. Even those with either the Commodore printer 
or a printer with the right inteiface find it difficult to "read" a printed program 
listing and harder still to type such a listing into their computer. Entering such a 
listing also requires remembering the exact sequence of key strokes needed to obtain 
the graphic symbol for these keys — ^the CLR/HOME key for example. Therefore, 
whenever possible, I will use die ASCII value for various functions that do not 
have a BASIC reserved word ah:eady established to accomplish the purpose of the 
function. 

Lines 270, 280, and 290 are a similar situation. There is no BASIC reserved 
word to vertically position the cursor on the screen. If we want a statement to 
appear on the fifth line from the top of the screen, we must either use the graphic 
symbol for cursor down five times, or print five CHR$(17) instructions. We will 
discuss the meaning of lines 270 and 290 (called a FOR-NEXT loop) in the next 
chapter, so for now, simply understand that this is one method of spacing down 
five lines from the top of the screen when executed immediately after a PRINT 
CHR$(I47)— CLR/HOME— instruction. Lines 270-290 position the cursor five 
lines from the top of the screen and in the first column of that fifth line. 

Finally, line 300 provides the instructions necessary to display the contents of 
the string variable LINES . Line 300 prints the value contained in memory location 
LINES on the screen five lines from the top. The computer prints this information 
on the screen because we have not told it that we want the information to go 
anywhere else. The screen is the default for PRINT statements. Default in this case 
means that a certain value, the screen, has been predetermined, and unless the value 
is specifically changed, the predetermined value is taken as the desired value. Since 
we have closed our data file and not used a file number in the PRINT statement, 
the computer understands that we want the information printed on the screen. 

This program is merely to give a brief explanation of the main file commands 
used with either sequential or random access data files. It is not intended to be a 
meaningful or useful program in any other sense. Such programs will begin in the 
next chapter. Please review this chapter and the program example with explanation 
until you are confident you fully understand what each of the BASIC data file 
commands, OPEN, CLOSE, INPUT#, and PRINT#, does. 

Finally, let's "clean up" our diskette so that we can put some serious programs 
on it in the next chapter. By following the instructions given below, you will gain 
practice in the use of two other BASIC file conmiands and leam about the two 
modes in which the computer can operate. If you do not wish to erase these 
programs, you can skip what follows and start Chapter 4 with a fresh diskette. 
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provided you remember to first format the new diskette. (Refer to Chapters 1 and 
2 if necessary.)Type: 



@$ 



The list shows: 



"FORM. 10-20-84 

1 "HELLO" 

1 "HELL02" 

2 "EXAMPLE" 



" 84 2A 



PRG 
PRG 
PRG 



1 "ADDRESS FILE" SEQ 
659 BLOCKS FREE 

Now, carefully type just the following: 
©SCRATCH: ADDRESS FILE 

Then, type @$ again. And ADDRESS FILE should be gone! Next, type: 

©SCRATCH: HELLO 
©RENAME :HELLO = HELL02 

We have erased (SCRATCHed) one more file and changed (RENAMEd) the name 
of another one. As the last step, type: 

/HELLO 

©SCRATCH: HELLO 
<-HELLO 

/EXAMPLE 

©SCRATCH: EXAMPLE 
-(-EXAMPLE 

This step puts HELLO and EXAMPLE back as the first two files on the diskette. 
If you have followed these instructions carefully, the list of files should show: 

"FORM.10-20-84 " 84 2A 

1 "HELLO" PRG 

2 "EXAMPLE" PRG 
661 BLOCKS FREE 

(If you want to see why I recommend use of the DOS Wedge, try the preceding 
steps using all the procedure and syntax necessary under the standard operating 
system; i.e. without the DOS Wedge.) 
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All the steps you have just taken have been done in what is called the immediate 
mode, in which what you type is acted upon immediately after the RETURN key 
is pressed. The immediate mode (sometimes called the direct mode) can be very 
helpful in determining what errors exist in your programs. But most of the work 
we will be doing will be in what is called the deferred mode (sometimes called the 
indirect mode) — deferred because the computer does not follow the program in- 
structions immediately. Rather, it waits until it is told to RUN the program. It 
defers action until it is specifically told to act. This is the reason for the line numbers 
in programs. Line numbers tell the computer the exact sequence by which the 
computer is to follow the program instructions. In the next chapter, we will create 
our first useful program. 



QUEST/ONS 

1. Name the type of file that usually contains lists of information, rather than 
computer instructions. 

2. Give the two kinds of data files. 

3. Which kind of data file is similar to a cassette tape? 

4. How many characters may a file name contain? 

5. True or False: You can RUN a data file just as you RUN a BASIC program. 

6. Give the number of modes in which the computer can operate and name them. 

7. Name the four operations usually used with data files. 

8. What does REM stand for? 

9. What three-character file type designator is used for sequential files? 

10. Explain what the BASIC reserved word INPUT, without a file number, does. 

11. What symbol is used to designate string variables? 

12. What are variables? 
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ANSWERS 



1. Data files 

2. Sequential access, direct access (random/relative access) 

3. Sequential access 

4. 16 

5. False 

6. 2; immediate and deferred 

7. OPEN, CLOSE, some method of writing to the file (PRINT#), and some 
method of reading from the file (INPUT# or GET#) 

8. Remark 

9. SEQ 

10. Brings information into the computer from the keyboard 

11. $ 

12. Names of locations in the computer's memory where values can be stored 



30 



CHAPTER THREE 



■ Program for DATA FILE EXAMPLE 



100 REM **---DATA FILE EXAMPLE--*** 
110 : 
120 : 

130 REM **--FILE OUTPUT ROUTINE — ** 

140 OPEN 2 , 8 , 2 , "0 : ADDRESS F I LE , S EQ , WR ITE" 

150 PRINT#2,"C0MM0D0RE-64 IS A BRIGHT COMPUTER" 

160 CLOSE 2 

170 : 

180 : 

190 REM **--ElLE INPUT ROUTINE--** 

200 OPEN 2,8,2,"0:ADDRESS FILE , SEQ , READ" 

210 INPUT#2, LINES 

220 CLOSE 2 

230 : 

240 : 

250 REM ** — DISPLAY ROUTINE--** 
260 PRINT CHR$( 147) :REM CLR/HOME 
270 FOR I = 1 TO 5 

280 PRINT CHR$( 1 7 ) ; : REM CURSOR DOWN 

290 NEXT I 

300 PRINT LINE$ 

310 END 

READY . 



■ Program for EXAMPLE. TAPE 

100 REM ***--EXAMPLE .TAPE--*** 
I 10 : 
120 : 

130 REM **--FILE OUTPUT ROUTINE--** 
140 OPEN 2 , 1 , 1 , "ADDRESS FILE" 

150 PRINT#2 , "COMMODORE-64 IS A BRIGHT COMPUTER" 
160 CLOSE 2 
170 : 
180 : 

185 INPUT "REWIND TAPE. PRESS RETURN ";L$ 

190 REM **--FILE INPUT ROUTINE--** 

200 OPEN 2 , 1 ,0, "ADDRESS FILE" 

210 I NPUT#2 , LINE$ 

220 CLOSE 2 

230 : 

240 : 

250 REM **--DISPLAY ROUTINE--** 
260 PRINT CHR$( 147) :REM CLR/HOME 
270 FOR I = I TO 5 

280 PRINT CHR$(17) ; :REM CURSOR DOWN 

290 NEXT I 

300 PRINT LINE$ 

310 END 

READY. 
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creating 

sequential 

files 



We begin to get into the heart of our study with the first part of our examination 
of sequential data files. First, let's briefly review. We have seen that there are 
different types of files: BASIC program files, FORTRAN or COBOL (or any other 
language) program files, and data files. You should now understand that program 
files are files that contain specific instructions for the computer. Data files usually 
contain only lists or data, not computer instructions. We have also seen that there 
are two kinds of data files: sequential data files and random access data files. The 
difference between these two kinds of data files lies in the way the information 
within them is accessed, sequential requiring access one after the other, and random 
allowing access to any record directly and immediately. In the last chapter, you 
were introduced to a new set of BASIC file commands common to both sequential 
and random data files. Now, we are ready to put some of this knowledge to work 
and create some useful programs. 

We will begin by taking another look at the program given in Chapter 3 and 
modifying it. 

100 REM ***-DATA FILE EXAMPLE--*** 
110 : 
120 : 

130 REM **-FILE OUTPUT ROUTINE-** 
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140 OPEN 2,8,2,"0:ADDRESS FILE,SEQ,WRiTE" 

150 PRINT#2,"COMMODORE-64 IS A BRIGHT COMPUTER" 

160 CLOSE 2 

170 : 

180 : 

190 REM **-FILE INPUT ROUTINE--** 

200 OPEN 2,8,2,"0:ADDRESS FILE,SEQ,READ" 

210 INPUT#2,LINE$ 

220 CLOSE 2 

230 : 

240 : 

250 REM **~DISPLAY ROUTINE-** 
260 PRINT CHR$(147):REM CLR/HOME 
270 FOR I = 1 TO 5 

280 PRINT CHR$(17);:REM CURSOR DOWN 

290 NEXT I 

300 PRINT LINES 

310 END 

This is the program from Chapter 3. Start the computer. When the cursor appears, 
insert the TEST/DEMO diskette. Type: 

LOAD "C-64 WEDGE" 
RUN 

Remove the TEST/DEMO diskette, take the diskette that you have been using, and 
place it in the disk drive. Then, type the following to see the program instructions: 

/EXAMPLE 

Or without the DOS Wedge: 

LOAD "EXAMPLE",8 
LIST 

Type: 

RUN 

Again, you should see the screen clear, and five lines from the top, the following 
will appear: 

COMMODORE-64 IS A BRIGHT COMPUTER 
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Type: 



@$ 

And you should see that ADDRF.SS FILE is back! Then, change line 150 to; 

150 PRINT #1,"COMMODORE-64 IS OK" 
LIST 

to make sure the change was made. Then, type: 
RUN 

Yes, again! You should see: 
COMMODORE-64 IS A BRIGHT COMPUTER 

Why didn't we get our new message: COMMODORE IS OK? The reason lies with 
the need to indicate to the computer that we want to replace our old data file with 
a data file that has the same name but different data. As indicated in Chapter 3, 
the replace character (fz must precede the file name. So, add this replace character 
to line 140. 

140 OPEN 2,8,2,"(« 0:ADDRESS FILE,SEQ,WRITE" 

Now, RUN the program again. This time you should see our new message five 
lines from the top of the screen. It includes everything the ADDRESS FILE now 
contains. Reopening a sequential data file with the replace character (a destroys 
the original contents of the file. In some cases, this may be exactly what you want, 
but in other situations you may not want to destroy the original contents; instead, 
we might want to add to the file. Some BASIC languages provide a word for just 
such additions to sequential files: APPEND. Commodore BASIC does not use 
APPEND. Instead, we will need to add to the file once the file is in the computer's 
memory and then use the replace character to write the larger file back out to 
diskette. Now, we can begin on the programs for the Mailing List System. 



MAILING LIST SYSTEM 

1 am not going to get involved in the discussion over flow-charting or structured 
programming, but, as in building anything, you should have a plan. In this Mailing 
List System, we will need several programs. The first program should create the 
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file. That first program should probably have at least three different parts: an input 
routine, a correction routine, and a file creation routine. With this minimum plan, 
let's begin. We start with what might be called the initialization statements. Type: 



NEW 

100 rem ***--mail. create--*** 
110 : 
120 : 

130 rem **~initialization"** 



At this point, do not worry about making mistakes in your typing. We will go back 
and make corrections later. But please notice, I have switched into the upper/lower 
case mode on the computer. I have done so in order to use a mixture of upper/lower 
case characters in my screen displays for two reasons: ( 1 ) To give the screen displays 
a professional look, and (2) so that program users will be able to enter lower case 
letters when they type in their names and addresses. The upper/lower case mode is 
obtained by pressing down on the Commodore key, the key in the extreme lower 
left hand comer of the keyboard, and at the same time pressing the SHIFT key. 
You can shift back and forth by holding the Commodore key down and alternately 
pressing and releasing the SHIFT key. From this point on, most of the programs 
will be presented as written in this upper/lower case mode. All the listings will also 
be displayed in lower case letters so that you will be able to easily understand which 
characters should be entered as upper case characters. 

Most COMMODORE program listings given in books or magazines display 
the listings in upper case and use some procedure to indicate when an actual upper 
case character is desired (such as underlining characters or words that actually are 
upper case, or placing a special character before those characters that are upper 
case). It is not necessary to follow this procedure, and I believe that it is actually 
much easier to enter programs from a listing that will exactly match the listing once 
it is entered in the computer. So from here on, in addition to loading the DOS 
Wedge when you turn on the computer, you should shift into the upper/lower case 
mode immediately. 1 know that this may at first prove awkward. But the benefits 
of using lower case within programs far outweigh the initial awkwardness of shifting 
from the normal upper case only mode into upper/lower case mode. 

Lines 140 through 220 provide the method for using descriptive chr$( ) values 
to obtain functions not directly developed in Commodore BASIC {i.e., with reserved 
words). Enter the following: 



140 home$ = chr$(147):rem cir/home 
150 ::cd$ = chr$( 17):rem cursor down 
160 ::cu$ = chr$(145):rem cursor up 
170 ::cl$ = chr$(157):rem cursor left 
180 ::cr$ = chr$( 29):rem cursor right 
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190 :blk$ = chr$(144):rem black 

200 :ylw$ = chr$(158):rem yellow 

210 :wht$ = chr$( 5): rem white 

220 :rvs$ = chr$( 18):rem reverse video 

230 : 

The colons are used to help format the listing so that the lines are all straight and 
easy to read. Each line sets a string variable equal to a specific chr$ ( ) function. 
The string variables defining colors will be used to set different colors for text at 
certain points throughout the program. Continue typing: 

240 dim line$(20) 

250 poke 53272,23:rem upper/lower case 
260 poke 53281, 0:rem set bkgrd to black 
270 : 
280 : 

Line 240 uses the dim (dimension) statement to reserve space in the computer's 
memory for 20 lines of up to 255 characters per line. This number of lines will be 
more than enough for a starter program. (In fact, a dim statement is not necessary 
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information-lines . ) 

Line 250 introduces a new BASIC statement, poke. POKE is used to place 
some value directly into the computer's memory. In this line, the decimal value of 
23 is placed into memory location 53272. When this memory location contains the 
value of 23, the computer switches into the upper/lower case mode. (A value of 
21 switches the computer back to the upper case only mode.) The computer contains 
many such "switches" that can be "set" using the poke statement. 

Line 260 refers to another of these special memory locations. This location 
(53281) is used to establish the color of the background. The value poked into 
53281, (0), sets the background to black instead of the dark blue that is present 
when you turn on the computer. There are sixteen colors available for the back- 
ground, border, and text, each of which can be set to a different color. This "feature" 
on the Commodore-64 is one of its best. Such versatility and flexibility are unusual 
even for more expensive computers. At the same time, misuse of color can be 
harmful to proper operation of the program. Misuse will not hurt the equipment, 
but program users may experience eye strain at the very least. Type the following: 

300 rem **~keyboard input routine--** 

310 k = 1 irem line counter 

320 print home$:rem cir/home 

330 print tab(5) 

340 print rvs$;:rem reverse 
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350 print "INSTRUCTIONS" 

360 print ylw$:rem yellow 

370 print "Type name and address as if" 

380 print "addressing an envelope." 

390 print "Do not use a comma or colon!" 

400 print "Press ";wht$;"RETURN";ylw$; 

410 print " after each line." 

420 print 

430 print "Type the word ";wht$;"END";ylw$;" when finished." 

Upper case is achieved with either the SHIFT key or the SHIFT LOCK key. Line 
300 labels the routine and line 310 uses a counter "k" to keep track of the infor- 
mation-lines used. Line 320 uses the now-defined string variable home$ — chr$(147) — 
to clear the screen and place the cursor in the upper left hand comer. Line 330, 
print tab(5), provides for spacing five spaces from the left side of the screen. The 
"print rvs$;" in line 340 indicates that the computer is to display the following line 
in reverse video. This techique is common for screen titles but should be used 
sparingly. The title is given in line 350 and is also displayed in upper case letters. 
Line 360 informs the computer to use the yellow color for the text that follows. 
Lines 370^00 provide instructions to the person entering information: in this case, 
names, addresses, and phone numbers. All these lines are optional, but I have 
included them because they help the user to enter the information correctly. And, 
of course, the instructions themselves can be reworded to your own preference. 

Line 400 first displays the word "Press" and a blank space using the previously 
established color for text (yellow). But then the computer is instructed to switch 
to white for the following word. The word "RETURN" in line 400 and the word 
"END" in line 430 are, therefore, printed in white on a black background. Im- 
mediately after the printing of these words, the text color is returned to yellow 
(ylw$). Throughout the book, 1 will attempt to similarly "highlight" keys or char- 
acters the program user should press or type. Such highlighting helps the program 
user to specifically follow the instructions given. Again, conservative and appro- 
priate use is best. 

Line 410 contains a space immediately after the quotation mark, because, 
without that space, the "a" in "after" would be placed right next to the "N" in 
"RETURN". The semicolon following the ylw$ variable instructs the computer to 
leave no space between the last displayed character and the next displayed character. 

440 print 

450 print "Type in line ";k;":" 
460 poke 19,32:rem disable input ? 
470 input line$(k) 
480 print 

490 if line$(k) = "end" or line$(k) = "END" then 540 
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500 if line$(k) = "" then print "We need some information." :goto 440 
510 k = k + 1 

520 goto 440: rem go back for more 
530 : 

These lines are the heart of the keyboard input routine. Line 450 instructs the user 
which line is being entered. The first print (in fine 440) prints a blank line. Next, 
the phrase "Type in line" is displayed. The semicolon instructs the computer to 
print the value of the numeric variable "k" immediately following the quotation 
mark. Line 460 is another of those special locations that can be set in different 
ways. Normally, the "input" statement displays a question mark. But line 450 does 
not contain a question. Instead, this line is instructing the user what to do. Con- 
sequently, I would rather not have a question mark displayed. Memory location 19 
controls the prompt on an input statement. Altering that location, this time with a 
value of 32, eliminates the question mark. Line 470 (input) accepts whatever is 
typed in and stores it in line$( ), the reserved memory, depending upon the value 
of "k". Remember that we told the computer to reserve space for 20 possible lines 
of line$. (Reserving multiple space for a variable creates an ARRAY for that 
variable.) 

The regular "input" statement does not allow certain punctuation to be entered. 
That is the reason for the specific instructions regarding the comma or colon in line 
390. Line 490 checks what was typed in to see if it equals the word "END" or 
"end". Since the user could type in either upper case or lower case, we should 
check for both. If it does equal either form of the word, the computer is instructed 
to jump ahead to line 540 immediately. If it does not equal either an upper or lower 
case form of the word "END", this line is ignored and the computer goes to the 
next instruction in line 500. 

Line 500 checks for a response that contains no information. Since it is possible 
for a new user to accidentally press the RETURN key more than once, we should 
make it impossible to do so. Without the check in line 500, such a mistake would 
result in a number of blank information-lines. Once more, if the condition is not 
met, this instruction is ignored and control passes to the next instruction. Line 510 
is a method of increasing the line count. The first time through, k will equal 1, so 
the formula really is: k = 1 + 1 or 2. Once we have increased our line count, we 
want to go back and get another line, which is exactly what line 520 does. 

Next, type the following: 

540 iine$(k) = "*":rem separator for phone number 
550 k = k 1 

560 print home$:rem cir/home 

570 cd = 3:rem 3 lines down 

580 gosub 9000: rem cursor down routine 
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590 print "PHONE: ";:print "Press ";wht$;"RETURN";ylw$;" if 

none." 
600 input line$(k) 

610 if line${k) = then line$(k) = "NONE" 
620 k = k + 1 

630 line$(k) = "!":rem separator between sets of information 
640 : 
650 : 

These may be the most confusing lines to understand. In order to easily separate 
the name and address from the phone number, I have included a separator, "*", 
on a line by itself. The reason for separating the phone number from the rest of 
the information is that now we can use the first part of our information to produce 
mailing labels. I have also included a separator, "!", to easily differentiate between 
the name, address, and phone number of one person and the name, address, and 
phone number of the next person. Therefore, line 540 sets the kth line of line$ 
equal to At this point, if the first line contains the name; the second line the 
address; and the third line the city, state, and zip code; then the fourth line will 
contain the word "END", and k will be equal to 4. By making the fourth line equal 
to we have actually accomplished two tasks: eliminating the word "END" and 
establishing a one-character separator before the phone number. We could have 
required the user to type the "*" when he or she finished entering the name and 
address, but I prefer to have the user type something natural within the context. 
Line 550 increases the line count by one for the phone number. 

Lines 560-580 are the instructions used to (1) clear the screen and home the 
cursor, and (2) position the cursor three lines from the top of the screen. Line 570 
uses a common variable that specifies the number of cursor down (cd) moves to 
be made. Then, line 580 transfers control to a subroutine beginning at instruction- 
line 9000. This subroutine will be explained in more detail at the end of the program. 
Essentially, it is the same routine used in the EXAMPLE program to display the 
message. 

The GOSUB instruction in conjunction with the RETURN instruction allows 
a programmer to transfer control from one location in a program to another location, 
process the instructions in that subroutine, and then return control to the instruction 
that follows the GOSUB statement. This instruction is especially useful for often- 
used subroutines. These often-used subroutines can be located at the end of a 
program and then called from various locations within the program. Once again, 
this flexibility can be misused — and often is. A program that contains many un- 
documented GOSUBS can be very difficult for even the original programmer to 
"read" and/or decipher later. 

Line 590 gives instructions about typing in the phone number with the word 
"RETURN" displayed in white. Line 600 accepts whatever format the individual 
uses to type in the phone number and stores the information in the string reserved 
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memory. If the user just presses the RETURN key, then line$(k) is set to equal 
the word "NONE". Line 620 again increases the count by one, this time for the 
separator between sets of information. Line 630 makes the kth hne of hne$ equal 
to "!". If the fourth line of line$ is "*" and the fifth line is the phone number, then 
k would be 6 and the sixth line would equal "!". This concludes the input routine. 
The correction routine is next. Type: 

660 rem **--correction routine--** 

670 print home$:rem cir/home 

680 cd = 3:rem 3 lines down 

690 gosub 9000: rem cursor down routine 

700 print "Do not change the line with the ";wht$;"*";yiw$;"." 

710 print "This symbol is used as a separator." 

720 print 

These lines explain what the routine is, set the format for the correction routine, 
and give instructions to the user about the separator "*". Line 660 labels the routine; 
lines 670-690 clear the screen and place the cursor in the upper left hand comer 
three lines from the top. Lines 700 and 710 print the instructions for the user. Line 
720 prints a blank line after the instructions. 

730 for i = 1 to k - 1 
740 print i;" ";line$(i) 
750 next i 

Lines 730-750 make a loop used to get the information stored in the string reserved 
memory and print that information on the screen. Line 730 is the first line of a 
FOR-NEXT loop. It uses a counter (i) that starts with the value of I and counts 
to the value of k minus 1. In our example above, the sixth line was the last line 
and so was set equal to "!". Since that line should not be changed, there is no 
reason to display the line. Therefore, the counter only goes to k - 1 or 5. Line 
740 prints the current value of the counter, a blank space, and then the information 
contained in line$(i) stored in the computer's memory. Line 750 increases the 
counter by one until the counter equals the value of k - 1 . The instructions between 
the FOR instruction and the NEXT instruction are executed the number of times 
specified in the FOR instruction. To conclude the correction routine, type: 

760 print 

770 print "Change any line? "; 

780 gosub 8000: rem y/n input routine 

790 print 

800 if yes$ = "y" then 850 
810 if yes$ = "n" then 830 
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820 : 

830 goto 3000: rem file creation routine 
840 : 

850 print:input "Change which line? ";!n 
860 print 

870 if In > k - 1 then print "Number too large! ":goto 850 
880 if line$(ln) = "*" then print "Line";ln;"is the *":goto 850 
890 print "Line";ln;"now is:" 
900 print line$(ln) 
910 print 

920 print "Line"; In; "should be:" 

930 input line$(ln) 

940 goto 660: rem correction routine 

950 : 

960 : 

These lines are fairly standard correction routine lines. Line 760 prints a blank line 
before the question in 770. Line 770 asks the necessary question and provides 
instructions for answering it. Control is transferred to the Y/N (yes/no) subroutine 
beginning at instruction-line 8000. In this subroutine, the user's response is stored 
in the string variable yes$. When the user has responded with some form of either 
a "y" or "n", control is returned to the instruction following the GOSUB instruction. 
Line 800 checks the answer, stored in yesS, to see if it equals "y". If it does, the 
computer is instructed to jump to line 850 and proceed. If it does not equal "y", 
the computer goes to the next instruction in line 810. Line 810 checks for the 
negative response of "n". If the value stored in yes$ equals "n", control is passed 
to the instruction in line 830. Since the computer will not reach this point until the 
value of yes$ is either a "y" or "n", no further checking need be done. With a 
negative response, the computer is instructed to go to line 830. Since a negative 
response indicates that the typist believes all the information-lines are correct, the 
instruction in line 830 directs the computer to the file creation routine. A positive 
response to the question in line 770 indicates that at least one of the information- 
lines needs changing. Therefore, the computer is instructed to jump to the instruction 
in line 850, which asks the user to indicate which information-line needs changing. 

Line 850 requests the number of the line that needs changing and stores that 
value in the variable "In". Notice that there is no dollar sign following In. This 
indicates that this variable is a numeric variable rather than a string variable . Numeric 
variables can only contain numbers. 

Line 870 checks to see if the user has typed a number larger than the total 
number of lines displayed. If that is the case, a message is printed and the computer 
returns to line 850 to ask again for the number of the information-line to be changed. 
Line 880 makes certain that the typist does not change the line with the "*". Line 
990 prints the originally typed line, and line 930 waits for the user to type in the 



CREATING SEQUENTIAL FILES 41 



correct information. Finally, line 940 returns to line 660 to begin the correction 
process over again. The correction process will be repeated until the user answers 
the question in line 770 in the negative, indicating that all information-lines are 
correct. A number of other lines or checks could have been included, but for our 
present needs these lines are sufficient. 

The third and last major part of the program is the file creation routine. Type: 

3000 rem **-file creation routine-** 
3010 : 

3020 rem *-pointer file-* 

3030 open 2,8,2,"0:adrs-ptr,seq,write" 

3040 print#2,k 

3050 close 2 

3060 : 

3070 rem *-data file-* 

3080 open 3,8,3,"0:adrs-data,seq,write" 

3090 for i = 1 to k 

3100 print#3,line$(i) 

3110 next i 

3120 close 3 

3130 : 

3140 : 

For tape users, the only lines that are different are lines 3030 and 3080: 

3030 open 2,1,1,"adrs-ptr" 
3080 open 3,1,1,"adrs-data" 

We are finally down to the actual file-handling routine. As you can see, the routine 
is quite short. The key to filing system programs is often in proper planning. If 
you have tried to anticipate and provide for all possible requirements, present and 
future, your data files can become very powerful and useful. If you are not careful 
in your planning, however, you may find that some of the information you thought 
you had in the file has been overwritten, lost, or is practically unavailable. This is 
the reason for including the two single-character separators and the reason for lines 
3020-3050 in this routine. Line 3030 opens a file called "adrs-ptr" in the "write" 
mode so that this file can receive information. This file is also identified as #2. 
This first data file will be used to keep track of the number of information-lines we 
have in the second data file. This data file provides a pointer value for the "adrs- 
data" file. That is the reason for the name of this data file: "adrs-ptr." 

Line 3040 prints the current value of k, which, in our example, should be a 
"6." This is done to keep track of the total number of information-lines that will 
be kept in "adrs-data" so that we know how many lines to read back into the 
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computer with other programs. There are other ways to keep track of this number, 
but with sequential files this is one of the easiest and clearest. Commodore provides 
a useful reserved word (ST, for STATUS) that actually lets us know when the end 
of the file has been reached. We will be making use of this handy feature in some 
of our later programs. But at this point it is important to know the number of 
information-lines and the process for obtaining that number. 

Line 3080 opens the second data file also in the "write" mode and readies it 
to receive our information. Lines 3090 through 3110 are essentially the same loop 
as lines 730 to 750, but this time the information is printed to the diskette instead 
of just the screen. Here, we do want to print the separator "!", so the counter goes 
from 1 to the value of k. Finally, we close the file in line 3120. 

One additional comment needs to be made. Lines 3040 and 3100 print infor- 
mation to the diskette rather than to the screen because the word print is immediately 
followed by the # symbol (without an intervening space!), a number, a comma, 
and the information that is to be written to the specific file. This is the method the 
computer uses to distinguish between information that is to be sent to the disk 
instead of the screen and, therefore, is absolutely necessary! If a file name has not 
previously been identified with the number, an error will occur. If an incorrect 
number is specified, information can be sent to the wrong file or be lost. It is very 
important to keep the numbers consistent with the file names. 

The only remaining lines that need be discussed are the two subroutines and 
a routine to end the program. We will accomplish this with the next lines to enter. 
Type: 

5000 rem **~end routine--** 
5010 end 
5020 : 
5030 : 

8000 rem **~y/n input routine--** 

8010 print "Type a ";wht$;"Y";ylw$;" or ";wht$;"N";ylw$;" :"; 
8020 poke 19,32: rem disable input ? 
8030 input yes$ 
8040 print 

8050 if yes$ = "y" or yes$ = "Y" then yes$ = "y": return 
8060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
8070 print 

8080 print rvs$; "Incorrect Choice! ";ylw$ 
8090 print 

8100 goto 8000:rem ask again 
8110 : 
8120 : 

9000 rem **~cursor down routine--** 
9010 for i = 1 to cd 
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9020 print cd$; 
9030 next i 
9040 return 

These three short routines (or two subroutines and one routine, if you want) actually 
reduce the amount of program instructions necessary in the entire program. As 
indicated above, the "y/n input routine" and "cursor down routine" are "called" by 
"gosub" statements in previous instructions. Control is transferred to the subroutines 
until certain conditions are met or certain instructions are followed. Once the task 
of the subroutine is finished, the "return" statement transfers or returns control back 
to the ipstruction that directly follows the gosub instruction. The "end routine" must 
be placed between the "file creation routine" and the two following subroutines in 
order to stop the computer from again executing those routines. Entering such a 
subroutine without the gosub statement will cause a "return without gosub error" 
and Cause the program to completely stop. In this situation, such an error would 
not hurt anything since we are finished anyway, but it is not good programming to 
allow such an error to occur. 

Line 8010 instructs the user what to type. This line can be "read" and understood 
by someone with a small amount of previous instruction. It will also be under- 
standable to the original programmer six months from now. It says: Print (or display 
on the screen) the words 'Type a " in the akeady set color for text (yellow). 
Immediately follow that with a white capital "Y". Switch back to yellow for the 
word " or " with a space on each side. Still on the same line, use white to display 
a capital "N" followed by a final switch back to yellow, a space, and a colon. The 
method used in line 8010 is far more descriptive than either of the following two 
forms of this line: 

8010 print "Type a ";chr$(5);"Y";chr$(158);" or " ;chr$(5);"N";chr$ 
(158);" :"; 

or the method that would place graphic symbols in place of the chr$( ) portions of 
this instruction line. 

Line 8020 is the already discussed way of disabling the question mark prompt 
used for input statements. The user's response is stored in the string variable yes$ 
(line 8030). Line 8050 checks the answer stored in yes$ to see if it equals "y" or 
"Y". If it does, the computer is instructed to store a lower case "y" in yes$ and 
then "return" to the line following the gosub statement. If it does not equal "y" or 
"Y", the computer goes to the next instruction in line 8060. Line 8060 checks for 
the negative responses of "n" or "N". If the value stored in yes$ matches one of 
those, the computer is instructed to store a lower case "n" in yes$ and then "return" 
to the line following the gosub statement. If it does not match one of those negative 
responses, the computer ignores this instruction line and proceeds to the following 
instruction-line. If the computer ever reaches these next lines, lines 8070-8100, 
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we know that the individual has typed something other than either a "y", "Y", "n", 
or "N". Anything but one of these responses, in this situation, can be viewed as 
an incorrect response. Therefore, the instruction in line 8080 tells the user that he 
or she has typed something wrong. Line 8100 sends the computer back to line 8000 
to inform the user to type some form of a "y" or "n". Although in this program 
this subroutine is used only once, when we expand the program, this subroutine 
will come in very handy. 

The cursor down subroutine is basically a loop that extends for the number of 
times specified in the numeric variable "cd". Notice that we can have a numeric 
variable that uses the same characters as a string variable, with the only difference 
being the $ that specifies a string variable. In this subroutine, cd$ equals the cursor 
down function or chr$(17), while cd equals the number of cursor down moves we 
want to make. Once the specified number of cursor down moves has been made, 
control is transferred (returned) to the instruction following the gosub routine. The 
computer keeps track of which instruction originated the transfer and thus can return 
to the instruction that follows it. 

If you have been following along and typing in the program, you can edit and 
make corrections to the program by using the cursor keys on the right of the 
keyboard. Once a correction has been made, pressing the RETURN key saves the 
corrected version in the computer's memory. When all corrections have been made, 
you should save this program on diskette (or tape) by giving it a name such as 
"mail. create". Remember that to save a program, you type the word "SAVE" and 
the program file name or, under the DOS Wedge, the left arrow and the program 
file name, like this: 

SAVE "mail.create",8 
or 

•«-maii. create 

Now type the @$ and see if the file name is listed. It should be listed like this: 

"form. 10-20-84 " 84 2a 

1 "hello" prg 

2 "example" prg 
1 "address file" seq 
12 "mail. create" prg 
648 blocks free 

At this pomt, you can run the program and enter your own name, address, and 
phone number if you wish. If you do not get the results given below, you will need 
to check over the program listing to see that what you have typed is entered exactly 
as given in this chapter. This checking process is often referred to as debugging a 
program {i.e., finding the mistakes that have somehow found their way into the 
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program). Often the mistakes result from unfamiliarity with the particular keyboard. 
The more one uses the keyboard, the fewer the number of mistakes there will be. 
Persistence and careful checking will eventually result in a program operating 
correctly. The exhilaration associated with finally getting a program to operate 
correctly is well worth the frustration all programmers go through in creating 
programs. 

But, I repeat — type carefully! This program has been thoroughly tested and 
checked for errors. As listed in the book, the program is fully operational. If you 
get an error message after you are finished typing in the program and have tried to 
RUN the program, the most likely problem is with the typing, not the program 
logic or any misprint of the listings! 1 cannot emphasize enough the aspect of careful 
typing and reading for mistyped instructions. An example is the typing of a 1 (the 
number one) instead of 1 (the lower case letter 1). And for those who do not want 
to spend the time keying in all these instructions, a diskette containing all the 
programs is available. (Information on ordering the diskette is given at the beginning 
of the book.) 

One last note. I have added *'s and -'s as a personal preference to help set off 
certain remarks. In addition, I purposely left out line numbers between 960 and 
3000 to indicate that the line numbers do not need to have any specific sequence 
or pattern and because future programs will add routines within this range of lines. 

My preference is to begin with line 100 for the program name. Furthermore, 
I like to have each part or section of the program begin on some round number, 
100, 300, 500, 1000, 3000, etc. with each line number some multiple of 10. This 
numbering system is not always possible, and without a renumbering program it 
is more trouble than it is worth. But if you have access to a utility program that 
can renumber your program (such as SYSRES®>from Solidus International)*, I have 
found that it helps the readability to number by 10 beginning with line 100 and 
jump to round numbers for major routines. The main point here is not to introduce 
the numbering system I feel most comfortable with, but to stress the importance 
of having a numbering system that you consistently follow whenever possible. 
Careful attention to small details, like a consistent numbering system and program 
format, can make life for any programmer much easier. Such attention to detail 
can also help develop thinking patterns that aid in creativity and logical solutions 
to difficult problems. 

When you type the word "RUN", you become the user of the program. As the 
user, you should see the screen clear and five lines down the message from lines 
350^50 will appear. Type in a name and press the RETURN key. You are then 
told to type in line number 2. If you want to type in a title for the name in the first 
line, you can. If no title is needed, then type in the street address and press RETURN . 
This process should continue until you type in the word "END" or "end." When 
you do type some form of the word "END," you will be asked for the phone number 



* Copyright 1982 by Solidus International Corp., North Vancouver, British Columbia, Canada. 
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and told that, if there is no phone number, you should just press RETURN. 

After the phone number has been typed, you are shown a list of the lines you 
have typed and asked if you wish to change any of those lines. If you want to 
change a line, you must answer the question with a "Y" (or a "y"). If you do not 
want to change a line, either type an "N" or "n". If you need to make changes and 
have typed a "Y" (or "y"), you will be asked which line number you want to change. 
Respond with one of the numbers on the screen. You will be shown the originally- 
typed line and asked for the correct information for this line. After typing in the 
new line and pressing RETURN, you will be shown the list of lines again with the 
new line in place of the old line this time. 

You can make as many changes as you wish. When you are satisfied and do 
not wish to make any more changes, a response of "N" (or "n") to the question 
about changes will instruct the computer to write the information out to the disk. 
The disk drive will come on for a few seconds, and the "ready" prompt will reappear. 
(If you are using tape, the message "Press Play & Record" will appear. After you 
press those keys on the recorder, the screen will go blank for some time. Eventually, 
the "ready" prompt will reappear.) Now, for disk users, if you type "@$", in 
addition to the previously created files, you should see: 






"form. 10-20-84 


" 84 2a 


1 


"hello" 


prg 


2 


"example" 


prg 


1 


"address file" 


seq 


12 


"mail-create" 


prg 


1 


"adrs-ptr" 


seq 


1 


"adrs-data" 


seq 


646 


blocks free. 





Two additional files have been created with this one program: "adrs-ptr" has been 
created to store the number of information-lines now in "adrs-data". In other words, 
the first file keeps track of the amount of information in the second file. 

But several questions present themselves at this point. How do I add more 
names to this file? And how do I actually see what is in the file? As you may have 
realized by now, there are a number of possible answers. One answer would be to 
add more lines to this program so that the program reads back what it just wrote 
to disk. Another answer is to write a separate program and possibly a program 
menu that would be able to switch easily between programs that write information 
and programs that read the information. In the next chapter, we will explore a 
number of these possibilities and see a little of what can be done with the information 
once it is safely and correctly on disk. 
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QUESTIONS 



1. True or False: Information in a sequential access file can be overwritten by 
additional information. 

2. What BASIC reserved word is used to initiate a sequential data file? 

3. Name the three main parts (or routines) in the "mail. create" program. 

4. What does reserving multiple space for a variable create? 

5. What symbol did we use to separate sets of information? 

6. What does DIM stand for? 

7. "FOR I = I TO K" is the first line in what kind of loop? 

8. The program user's response is tested by what kind of BASIC statement? 
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ANSWERS 



1. False; opening a sequential file with the REPLACE character (@) erases the 
entire contents of any file with the same name. Without the REPLACE char- 
acter, opening a sequential file that already exists and attempting to write to 
that file produces an error condition. 

2. OPEN 

3. INPUT, CORRECTION, and HLE CREATION routines 

4. An ARRAY 

5. ! 

6. Dimension 

7. A FOR-NEXT loop 

8. An IF . . . THEN statement. Check lines 490, 500, 610, 800, 810, 870, and 
880. 
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■ Program for MAIL.CREATE 



100 
1 10 
1 20 
130 
140 
150 
160 
] 70 
1 80 

1 90 
200 
210 

2 20 
230 
240 
250 
260 
270 
280 
300 
310 
320 

3 30 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 

4 50 
460 
470 
480 
490 
500 

510 
520 
530 
540 

5 5 
560 
570 
5 80 
590 

600 



rem 


"'■--mail .create-- 






rem 


- — initial i 7. a t ion 






iome$ 


= chr$( 147) 


rem 


c 1 r / h (.; m o 


: : c d $ 


= c h r $ ( 17) 


rem 


curs o r 


down 


: : c u $ 


= c h r $ ( 1 4 5 ) 


rem 


cursor 


up 


: : c 1 $ 


= c h r $ ( 1 5 7 ) 


rem 


cursor 


left 


: : c r $ 


= chr$( 29) 


rem 


cursor 


right 


: bl k$ 


= chr$( 144) 


rem 


b 1 a c k 




: y 1 w $ 


= chr$( ,1 58) 


rem 


y e 1 \ ov 




: w h t $ 


= chr$( 5) 


rem 


w h i to 




: rvs$ 


= chr$( 18) 


rem 


reverse 


vide 



dim line$(20) 

poke 53272, 23:rem upper/lower case 
poke 53281, 0:rem set bkgrd to black 



rem ■■■ 

k = 1 

print 

p r L n t 

print 

print 

print 

print 

print 

print 

print 

p r i n t 

pr int 

pr int 

print 

p r i n t 

poke 

input 

print 

if ! i 

i f 1 i 

goto 

k = k 

goto 



— keyboard input routine — * * 
;rem line counter 
li o m e S : r e m c I r / h o m e 

t ab( 5) 

rvs$;:rem reverse 

"INSTRUCTIONS" 

ylwS:rera yellow 

"Type name and address as if" 

"addressing an envelope." 

"Do not use a comma or colon!" 

"Press "; wht$ ; "RETURN" ; ylw$ ; 

" after each line." 

"Type the word " ; wh t $ ; " END " ; y 1 w $ ; " when finished 

"Type in line ";k;":" 
19,32:rem disable input ? 
line$(k) 



ne$(k) 
nc$(k) 



440 

+ 1 
4 4 : r e m go 



"end" or line$(k) 
then print "We 



= "END" then 540 

need some information. 



back for more 



rem separator for phone number 



1 i ne$ ( k ) = ' 

k = k + I 

print ti [) ni c S : r e III c I r / h o m e 

cd = 3:rem 3 lines down 

gosub 9000:rera cursor down routine 

print "PHONE: ";:print "Press ";wht$; 

none . " 

input line$(k) 



'RETURN" ;ylw$; " 



50 
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610 if line$(k) = "" then line$(k;) = "NONE" 
620 k = k + 1 

630 line$(k) = "!":rera separator between sets of information 
640 : 
650 : 

660 rem **--corr action routine--** 

670 print home$:rem clr/horae 

680 cd = 3:rem 3 lines down 

690 gosub 9000:rem cursor down routine 

700 print "Do not change the line with the " ; wht$ ; ; y lw$ ; " . " 
710 print "This symbol is used as a separator." 
720 print 

730 for i = 1 to k - 1 
740 print i;" ";line$(i) 
750 next i 
760 print 

770 print "Change any line? "; 

780 gosub 8000:rem y/n input routine 

790 print 

800 if yes$ = "y" then 850 
810 if yes$ = "n" then 830 
820 : 

830 goto 3000:rem file creation routine 
840 : 

850 print:input "Change which line? ";ln 
860 print 

870 if In > k - 1 then print "Number too large!":goto 850 

880 if line$(ln) = "*" then print "Line" ; 1 n ; " i s the *":goto 850 

890 print "Line" ; In ; "now is:" 

900 print line$(ln) 

910 print 

920 print "Li ne 1 n ;" should be:" 
930 input line$(ln) 

940 goto 660:rem correction routine 
950 : 
960 : 

3000 rem **--file creation routine--** 
3010 : 

3020 rem *-pointer file-* 

3030 open 2 , 8 , 2 , "0 : adrs-ptr , seq , wr ite" 

3040 print#2,k 

3050 close 2 

3060 : 

3070 rem *-data file-* 

3080 open 3 , 8 , 3 , "0 : adrs-data , seq , write" 

3090 for i = 1 to k 

3100 print#3, line$( i) 

3110 next i 

3120 close 3 

3130 : 

3140 : 

5000 rem **--end routine--** 

5010 end 
5020 : 
5030 : 

8000 rem **--y/n input routine--** 
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8010 print "Type a " ; wh t $ ; " Y " ; y 1 w$ ; " or " ; wht $ ; "N " ; y 1 w$ ; ' 
8020 poke 19,32:rem disable input ? 
8030 input yes$ 
8040 print 

8050 if yes$ = "y" or yes$ = "Y" then yes$ 
8060 if yes$ = "n" or yes$ = "N" then yes$ 
8070 print 

8080 print r v s$ ; " I nco r r e c t Cho i c e ! " ; y 1 w$ 
8090 print 

8100 goto 8000:rem ask again 
8110 : 
8120 : 

9000 rem — cursor down routine- 
9010 
9020 



ready . 



rem 




- c 


ursor down 


for 


i = 


1 


to c d 


p r i n 


t c 


d$ 




next 


i 






retu 


rn 
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appending 
sequential 
files 



Before we get into the subject of this chapter, a few comments are necessary. When 
you first turn on your computer, if you have a disk drive, you should load the DOS 
Wedge. And regardless of the hardware used to store and recall files (disk drive or 
cassette recorder), you should switch into the upper/lower case mode as soon as 
possible. Please note that although the discussions in this chapter, and those that 
follow in the sequential access section, are directed at disk users, Commodore-64 
owners with the Commodore cassette tape unit can use all these programs by 
changing the "open" instruction-lines to the specific parameters necessary for tape 
use. A list of all such lines within each program is given at the end of the chapter. 
I would also recommend that tape users (but not disk users) store their programs 
on one tape and use another tape on which to save their data. Regardless, tape 
users must keep track of the exact location of their data file and remember to rewind 
or exchange tapes before running any program. Besides the additional time needed 
to load programs and data into the computer, tape use requires manual file man- 
agement operations that the Disk Operating System handles automatically. 

Now the fun begins. We have created a file, but as you will soon see, the 
creation is one of the easiest parts of file manipulation. There are two things we 
would immediately like to do with this file: add to the file, and read what is in the 
file. Both tasks are easy to do, but because the job of reading is simpler to explain 
and more rewarding, we will go over a short program to read the file first. 
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Type the following: 

100 rem ***--mail.reader1--*** 
110 : 
120 : 

130 rem **--initialization--** 
140 home$ = chr$(147):rem cir/home 
150 ::cd$ = chr$( 17):rem cursor down 
160 :ylw$ = chr$(158):rem yellow 
170 : 

180 poke 53272,23: rem upper/lower case 
190 poke 53281, 0:rem set bkgrd to black 
200 : 
210 : 

220 rem **--new lines for reader--** 

230 print home$:rem cir/home 

240 cd = 5:rem 5 lines down 

250 gosub 9000:rem cursor down routine 

260 print ylw$;"ONE IVIOIVIENT PLEASE!" 

270 : 

280 : 

Lines 100 through 280 should be familiar. These are many of the same instructions 
(with different line numbers in some cases) that we had in the "mail. create" program. 
They perform the same functions in this program that they did in the "mail.create" 
program. If you do not understand any of these instructions, refer back to Chapter 
4 for a thorough discussion of each line. The only new instruction is line 260. This 
line displays the message contained inside the quotation marks in yellow; i.e., 
yellow characters on a black background (line 190). 

The next section of programming code brings the contents of the data file into 
the computer's memory. Enter the following: 

290 rem **-file input routine--** 
300 : 

310 rem *-pointer file-* 

320 open 2,8,2,"0:adrs-ptr,seq,read" 

330 input#2,rec 

340 close 2 

350 : 

360 rem *-data file-* 

370 dim tlines$(rec) 

380 open 3,8,3,"0:adrs-data,seq,read" 

390 for i = 1 to rec 
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400 input#3,tlines$(i) 
410 next i 
420 close 3 
430 : 

440 tk = rec.rem total k = # of lines 
450 : 
460 : 

Line 320 tells the computer that we want to use the disk and that we want to open 
the "adrs-ptr" file as file #2 in order to bring in the number of information-lines 
stored in our main data file. Remember, file numbers can go from 1 to 255 with 
most numbers used under 127. Remember also that the number chosen is simply 
an arbitrary assignment and in no way indicates the actual number of files in use 
at any one time. I avoid using the number 1 for a file number since disk drive 
channel numbers only go from 2 to 14. Line 380 opens that main data file called 
"adrs-data" as our second file. This instruction-line also opens the file in such a 
way (read) that information can only be read from the file, not written to the file. 

Line 330 brings in, from file #2, the value for the number of lines we wrote 
to the diskette in our file creafion program. If you are not clear on this, check back 
to the explanation of lines 3010 and 3030 in the previous chapter. We are simply 
reading back the number written in those lines. Line 370 reserves space in the 
computer for the information we will be bringing in from the diskette. Since we 
are not sure of the exact number of lines and the number will change every fime 
we add information, we should use the variable "rec", which will always equal the 
number of lines (or records) that have been written. 

Now, we can bring in a copy of the information contained in the file. Lines 
390, 400, and 410 bring in those data. Line 390 establishes the boundaries for the 
loop we want. We want the count to go from the first to the last line of informafion 
as represented by the variable "rec". Because we have identified the file by its 
number, the computer understands that the input statement in line 400 refers to the 
disk and not the keyboard. This instruction line tells the computer to go to the 
diskette and obtain a copy of the information contained in the information-line 
specified by the variable i. 

The operation is on the same principle as the logic of lines 3090 to 3110 in 
our file creation program. But this time we are bringing information into the com- 
puter from the diskette instead of transferring information from the computer to the 
diskette. Now, the information physically exists in two locations. One location is 
in the computer's memory, and the other locafion is still out on the diskette. By 
bringing the information into the computer, we have not erased that information 
on the diskette. Merely reading a file does not disturb the contents of that file. 
Finally, line 420 closes the file. 

If you run this program, you are not likely to see anything happen except the 
appearance of the word "ready". We need a routine that will display the information. 
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We will become deeply involved in different ways of displaying our information 
a little bit later, but for now the following routine will get the job done. 

1000 rem **--ciisplay routine-** 
1010 print home$:rem cir/home 
1020 for i = 1 to tk 
1030 print !;" ";tlines$(i) 
1040 next i 
1050 : 
1060 : 

Our input routine can be used in a number of different programs to bring in all the 
information from the file, but our display routine will not be functional in very 
many situations. We will alter this routine later to make it more usable (see Chapter 
6). To conclude, type in two short routines already discussed: 

5000 rem **-end routine--** 
5010 end 
5020 : 
5030 : 

9000 rem **~cursor down routine--** 
9010 for 1 = 1 to cd 
9020 print cd$; 
9030 next i 
9040 return 

Save the program now as "mail.readerl", then type @$ to see the list of files now 
on the diskette. Type: 

<-mail.reader1 
@$ 

and you should see: 






"form. 10-20-84 " 


84 2a 


1 


"hello" 


prg 


2 


"example" 


prg 


1 


"address file" 


seq 


12 


"mail. create" 


prg 


1 


"adrs-ptr" 


seq 


1 


"adrs-data" 


seq 


4 


"mail.readerl" 


prg 



642 blocks free 
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For tape users: 

1. Lines 320 and 380 need to be changed to: 
320 open 2,l,0,"adrs-ptr" 

380 open 3,l,0,"adrs-data" 

2. Insert the program tape and type: 
save "mail. reader 1" 

3. Follow the screen prompts. 

4. Then insert the data tape and rewind if necessary. 
Finally, for everyone, type: 

run 

The information you provided when you used the "mail. create" program should be 
displayed on the screen. If it is not, you need to check back over your programs 
to see that they are entered exactly as given in this book. 

So far, you have created a file, "adrs-data", and written the first group of lines 
containing information to that file. Now, you have read that information back and 
displayed it. Next, we need to be able to add more information to the file. If you 
run the file creation program again and use a different set of information-lines, 
what would happen? Would the new information be added to the file? Would the 
old information be replaced? If you do not know for certain what would happen, 
look at the explanation on page 33 concerning reopening a sequential data file. 
Every time this program is RUN, the computer is instructed to open two new files, 
"adrs-ptr" and "adrs-data", before writing any new information. But both files 
already exist, so you will get a "file exists" error. Nothing will happen to the first 
set of information-lines already on the diskette if you try to use this program to 
add a second set of information-lines, but the information you just typed in will be 
lost due to the error. 

So, we need a third program to add more lines of information to our "adrs- 
data" file. (For those of you itching to put all these programs into one large program, 
have patience. I will eventually explain how these programs can be tied together 
without actually existing as one large program.) This third program is really just a 
modification of the file creation program. The modification needs to be done or, 
as we have seen, the results will be worthless. The modification is relatively simple 
if you closely follow the instructions given below. 

Down to line 260 of the "mail. create" program (see the complete listing at the 
end of Chapter 4), the new program can be the same with one minor change. So, 
first load the "mail.create" program; then list it to see a complete listing of the 
instructions in this program. Type: 

/mail.create 
list 
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All the program will not fit on the screen at one time. The first instructions disappear 
from view off the top of the screen. In BASIC, you can list to a certain instruction- 
line number, or from a certain instruction-line number to the end of the program, 
or from one line number to another, like this: 

list - 200 
list 350- 
iist 100-800 

Line 100 should be changed to read: 
100 rem ***~mail.adder1~** 

Except for that one change, the "mail. create" program works fine down to line 260 
for our new "mail.adderl" program. Be certain to make that change before con- 
tinuing. 

The next lines essentially come from our "mail. reader! " program. The num- 
bering of the lines must be changed in order to fit these lines in between instruction- 
line 270 and instruction-line 300. Type: 

265 : 

266 : 

270 rem **-new lines for adder-** 

271 print home$:rem cir/home 

272 cd = 5: rem 5 lines down 

273 gosub 9000:rem cursor down routine 

274 print ylw$;"ONE MOMENT PLEASE!" 

275 : 

276 : 

277 rem **--fiie input routine-** 

278 : 

279 rem *-pointer file-* 

280 open 2,8,2,"0:adrs-ptr,seq,read" 

281 input#2,rec 

282 close 2 

283 : 

284 rem *-data file-* 

285 dim tlines$(rec + 100): rem add up to 100 new lines 

286 open 3,8,3,"0:adrs-data,seq,read" 

287 for i = 1 to rec 

288 input#3,tlines$(i) 

289 next i 

290 close 3 
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291 : 

292 tk = rec:renn total k = # of lines 

293 : 

294 : 

For tape users: 

280 open 2,1,0,"adrs-ptr" 
286 open 3,1,0,"adrs-data" 

There are three basic parts to the code presented above. 

1. Lines 270-274 instruct the computer to clear the screen and display a message 
five lines from the top of the screen. 

2. Lines 279-282 bring into the computer the number of information-lines (rec- 
ords) that the "adrs-data" file contains. 

3. Finally, lines 284-290 dimension the string array tlines$() and bring the data 
into the computer from the diskette. Line 285 informs the computer that it 
needs to reserve space (dimension) for a certain number of information-lines — 
the number of records already in the file, plus the maximum number of infor- 
mation-lines a user can enter at any one time before writing the information 
back out to the file. Lines 286-290 bring the information into the computer. 
Without the ability to physically add to the file on the diskette (there is no 
APPEND command), it is necessary to bring all the information into the com- 
puter's memory, add the new information to the previous information, and then 
write the combined total information back out to the diskette. 

Between lines 300 and 960 of "mail. create", only one line needs to be changed 
for the "mail.adderl" program. Line 830 still sends the computer to the routine at 
3000, but now that routine is called "file addition routine" instead of "file creation 
routine". 

830 goto 3000: rem file addition routine 

The logic for the placement and numbering of these next two routines will become 
clear a little later. For now, add these lines: 

2000 rem **-repeat routine--** 

2080 print home$:rem cir/home 

2090 cd = 3:rem 3 lines down 

2100 gosub 9000:rem cursor down routine 

2110 print "Do you want to add more information?" 

2120 gosub 8000:rem y/n input routine 
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2130 if yes$ = "y" then run 
2140 if yes$ = "n" then 5000 
2150 : 
2160 : 

Line 2000 names the routine. Line 2080, as we have seen, clears the screen, and 
lines 2090 and 2100 space down the screen three lines. Line 21 10 prints the question 
about additional information, and line 2120 transfers control to the "y/n input 
routine" at 8000 and waits for a response from the user. The computer knows to 
wait for the response from the keyboard in the "y/n input routine" because we have 
not identified a file number with the input statement (line 8030). Lines 2130 and 
2140 check the response. If the response equals "y", the computer is instructed to 
"run" the program again. If the response is negative, control is transferred to the 
instruction at 5000, the end routine. Line 5010 tells the computer to end this 
program. 

Neither of these choices writes anything to the diskette. That is the reason we 
need another routine, our file addition routine. This file addition routine is very 
similar to the file creation routine, but the changes are essential! First, we must 
add the new information-lines to the existing information-lines; that is, we add the 
number of information-lines already in the file to the number of newly-entered 
information-iines for a revised information-line total. Type: 

3012 rem *-add new lines to exist, file lines-* 

3013 for 1 = 1 to k 

3014 tlines$(tk + \) = line$(i):rem tk + i, not tk + 1 

3015 next i 

3016 tk = tk + k 

3017 : 

Line 3014 is the heart of the routine. The string array, tlines$(), contains the 
information from the diskette. The string array, line$(), contains the new information 
that has just been entered from the keyboard. Line 3014 combines the two sets of 
information by adding the information from lineSO to the end of the information 
in tlines$(). It is essential that the subscript read "tk + i" and not "tk -I- 1". If it 
were to add only one, then only the last piece of new information would be combined 
to the existing file. Finally, line 3016 totals the number of information-lines from 
the diskette (tk) and the number of new information-lines entered from the keyboard 
(k) to get a new total for tk. The logic for this line is the same as for our now- 
standard "k = k -h 1" lines. If you are not clear about this logic, it is best to just 
accept that this is one way the computer totals things. 

You must be careful about the choice of variable names. Variables that contain 
(or are) reserved words must not be used. This is the reason we do not use totalinesS 
for our string array. Check your selection of variable names very carefully. 
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Now, the only thing left is to change five lines in the "mail. create" program 
for our new file addition routine. 



Old line: 
New line: 

Old line: 
New line: 

Old line: 
New line: 

Old line: 
New line: 

Old line: 
New line: 



3080 open 3,8,3,"0:adrs-data,seq,write" 
3080 open 3,8,3,"@0;adrs-data,seq,write" 

3090 for i = 1 to k 
3090 for i = 1 to tk 

3100 print#3,line$(i) 
3100 print#3,tlines$(i) 



3030 open 2,8,2,"0:adrs-ptr,seq,write" 
3030 open 2,8,2,"@0:adrs-ptr,seq,write" 

3040 pnnt#2,k 
3040 print#2,tk 



For tape users: 



3030 open 2,l,l,"adrs-ptr" 



3080 open 3,l,l,"adrs-data" 



The changes in each line are all small changes but are very necessary if the 
"mail.adderl" program is to work. Line 3100 is changed to write the information 
contained in the string array tlines$() instead of the contents of line$(). This last 
is a very important change and will mess up the file badly if it is not made. The 
@ symbol is the replace symbol. With the addition of this character, the two existing 
files are replaced by the updated files. 

This procedure accomplishes what we want it to, but it is a somewhat dangerous 
practice. For example, if the power goes out at the moment the newly updated files 
are being written to the diskette, we might lose not only the information just entered, 
but all our previous information as well. A better procedure is to rename the old 
"adrs-data" file to something like "adrs-backup" and then write the updated file out 
to the diskette. This practice is not possible with tape. It is also not needed if the 
user does not rewind the tape before writing out the newly updated file. 

One more line must be added to this new file addition routine: 

3125 goto 2000:rem repeat routine 

Once the information has been written out to diskette, control is transferred back 
to the "repeat routine" to find out if any more information is to be added to the 
file. The flow of logic in this program is from the keyboard input routine to the 
corretion routine, from the correction routine to the file addition routine, from the 
file routine back to the repeat routine. At the repeat routine, the user is asked if 
additional information is to be added. If more information is to be added, the 
program is instructed to "run" itself again. If no more information is to be added 
at this time, the program is concluded by transferring control to the end routine 
(lines 5000-5040). 
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We are finished with the program to add more information to our "adrs-data" 
file. You should now save this new program to the diskette as "mail.adderl". 

<-mail.adcler1 

You can check your typing by going over the complete listing of the program given 
at the end of this chapter. Please remember that it is very important to be following 
along by typing the necessary lines on your Commodore-64. 

We have three complete programs: "mail. create", "mail.readerl", and 
"mail.adderl". The combination of these programs will create a file, add information 
to the file, and read information back from that file. The three adequately dem- 
onstrate the procedures used to accomplish these tasks. But the programs are not 
really very useful or practical as they now exist. For instance, every time you run 
the "mail.readerl" program you will read the entire file and display the entire file. 
This happens even if you want only one name and address. After just a few names 
and addresses are added to the file, the list begins to disappear off the top of the 
screen during display. It is quite obvious that more modification needs to be done 
in order to make these programs useful. If you are already a good programmer in 
BASIC, you probably have some ideas about "features" or changes you would like 
to see in one or more of these programs. If you have little experience in program- 
ming, you will soon become much more experienced. 

I am going to add a few "features" to these programs and fully explain each 
additional step. So, if you would like to include these things and become more 
experienced at programming, especially with file information data, follow closely 
with the different programming lines and explanations given. If you don't need 
these features or want to create your own, you might want to skip ahead to the 
chapters on advanced sequential data file manipulation. Or, if you have had enough 
of sequential data files, you might want to jump immediately to the chapters on 
random access (i.e., direct access/relative access) data files. We will be using some 
of these same routines in the chapters on random access, but 1 will not go into the 
same explanatory detail as in these chapters. Let's begin adding features to our 
three programs and making them more useful. 



MA/L.ADDER2 

We will begin by modifying the "mail.adderl" program. If you have used this 
program to enter a number of names and addresses, you will have noticed that the 
disk operates every time you have accepted a set of informaUon-lines as correct. 
This disk operation may not bother you if you are somewhat slow in typing or are 
in no hurry to enter a large number of names and addresses, but there is no reason 
that the disk needs to operate after every name. Why not write the information out 
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to disk only after we have finished entering all our information-lines for the current 
session? Such a change is clearly a preference leature that proponents and opponents 
often argue about. In this situation, I prefer to enter all of my information before 
writing any of it to the diskette. Even before typing in a second set of information- 
lines, I may want to print a mailing label of the information 1 have just entered. 
This is obviously a preference feature and will do little good if you do not have a 
printer. If you do not have a printer, the routine may still be of interest because 
we will be formatting our display in a new way. 

So, the first two additional routines will be to the "mail.adderl" program. The 
first routine will consist of adding lines of computer instructions to allow the user 
to print out a mailing label of the information just entered. The second routine 
includes the computer instructions necessary so that the information will be written 
to the diskette after all information for the current session has been entered and 
corrected. The additional computer instructions necessary to include both of these 
features are fairly small in number. 



PRINT LABEL ROUTINE 

We will begin with the print label routine. Add the following lines to the "mail.adderl" 
program remembering that if the "mail.adderl" program is not already in memory, 
you must load it into the computer's memory from the diskette or tape: 

1000 rem **-print label routine--** 

1010 print home$:rem cir/home 

1020 cd = 3: rem 3 lines down 

1030 gosub 9000: rem cursor down routine 

1040 print "Would you like to print a" 

1050 print 

1060 print "mailing label now?" 
1070 print 

1080 gosub 8000: rem y/n input routine 
1090 if yes$ = "y" then 1120 
1100 if yes$ = "n" then 2000 
1110 : 

1120 print home$:rem cIr/home 

1130 cd = 3:rem 3 lines down 

1140 gosub 9000:rem cursor down routine 

1150 print "Please make sure the printer" 

1160 print 

1170 print "is on and ready to use." 
1180 print 

1190 print "Are you ready to begin printing?" 
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1200 print 

1210 gosub 8000:rem y/n input routine 
1220 if yes$ = "n" then 1000 
1230 : 

1240 rem **--printer channel-** 

1250 open 4,4,7 

1251 : 

1252 rem first 4 = file # 

1253 rem second 4 = printer device # 

1254 rem 7 = command for upper/lower case 

1255 : 

1260 for i = 1 to k 

1270 if line$(i) = "*" then i = i + 1:goto 1300 

1280 if line$(i) = "I" then 1300 

1290 print#4,line${i) 

1300 next i 

1310 close 4 

1320 : 

1330 : 

Change lines 100 and 830 to: 

100 rem ***--mail.adder2--*** 

830 goto 1000:rem print label routine 

With these few additional instructions, we can now print a mailing label of the 
infonnation just entered. 

Line 1000 gives title to the routine. Lines 1010-1030 clear the screen and place 
the cursor three lines from the top. Lines 1040 through 1060 print (display on the 
screen) instructions for the user. Line 1050 prints a blank line so that any user 
instruction that follows will not come immediately below the last line. Line 1060 
prints the question, while line 1080 sends the computer to the "y/n routine" to wait 
for the response from the keyboard. Lines 1090 and 1100 check the response. If 
the response is positive, which indicates that a printed label is desired, the computer 
is instructed to jump over the next two lines and go on to the rest of the routine. 
Line 1100 is only reached if the response is a negative response, indicating that 
the user does not want a printed label. Negative responses end the routine and 
transfer the computer to the instruction at line 2000 for the repeat routine. Lines 
1 120-1220 provide additional information to the user and check to see that every- 
thing is ready to print. If not, or if the user changes his or her mind, control is 
returned to the original question. 

Line 1250 opens the printer channel using the standard printer device number 
of 4 and the command of 7 (indicating the desire to use both upper and lower case 
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in the printout). The instruction in line 1260 is the now-familiar beginning of the 
loop. 

Lines 1270 and 1280 are different from anything we have had so far. Line 
1270 checks the contents of each line$() string for the symbol. If, and only if, 
it locates that symbol , it instructs the computer to add 1 to the value of the variable 
i and then to proceed to the instruction at line 1300. The reason for this is simple 
but hard to explain. When the computer comes to an asterisk, we do not want that 
asterisk printed, nor do we want the phone number printed in a mailing label. So, 
we skip printing the asterisk and the phone number by adding one to the counter 
(i) and jumping to the end of the loop, line number 1300. Line number 1300 
increases the counter by one more line, so we have skipped two lines in the file; 
the lines that contained the separator symbol "*" and the phone number. I think 
this will become clear, if it is not already so, when you type in and try the routine. 

Line 1 280 does much the same thing. It tells the computer to jump over the 
print statement and go to the instruction that increases the counter. We have the 
effect, then, of skipping over the "!" separator symbol and not printing it either. 
Line 1290 does the printing. It prints to the printer the contents of every string in 
the line$() array that is not either a "*", "!", or phone number, unless the phone 
number has been typed in before the "*" symbol. The information is sent to the 
printer instead of the screen because we have: (1) previously opened output to the 
printer as file number 4, and (2) used the # symbol with a file number in the print 
statement. In the next chapter, we will see how we can send information to either 
the printer or the screen with just one line of code, but for this routine the print #4 
statement is sufficient. 

Line 1300 increases the counter. When the loop is finished, when all lines of 
information have either been printed or skipped and the i counter has reached the 
value of k, the computer can go on to the next instruction "outside" the loop. Line 
1310 is the first instruction outside the loop, and because we are finished printing, 
we need to close the channel that we opened for the printer. It is especially important 
to do this before attempting to do anything else, since strange things occur with 
the Commodore-64 and an open channel to device 4. We are now finished with 
the print label routine and control passes to the repeat routine. 



REPEAT ROUTINE 

The new repeat routine is even shorter and easier. Do the following very carefully: 

1. List lines 3010-3017 
list 3010-3017 

2. Use the cursor keys to: 

change the line numbers 3010-3017, 
so that they go from 2010 to 2070. 
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Lines 3010-3017 were: 
3010 : 

3012 rem *-adcI new lines to exist, file lines-* 

3013 for i = 1 to k 

3014 tlines$(tk + i) = line$(i):rem tk + i, not tk + 1 

3015 next i 

3016 tk = tk + k 

3017 : 

Those lines now become: 
2010 : 

2020 rem *-add new lines to exist, file lines-* 
2030 for i = 1 to k 

2040 tlines$(tk + i) = line$(i);rem tk + i, not tk + 1 

2050 next i 

2060 tk = tk k 

2070 : 

3. Delete lines 3012-3017 by: 

a. typing each line number 

b. then pressing the {RETURN} key. 

3012 {RETURN} 

3013 {RETURN} 

3014 {RETURN} 

3015 {RETURN} 

3016 {RETURN} 

3017 {RETURN} 

(line 3010 can stay as a separator) 

4. Change line 2130 to: 

2130 if yes$ = "y" then 300 

5. Change line 2140 to: 

2140 if yes$ = "n" then 3000 

6. Delete line 3125 
3125 {RETURN} 

7. Optional! For disk users only. 
If you want to, add: 

3075 @ "rename: adrs-backup = adrs-data" 
and eliminate the @ from line 3080. 

They look like such small changes, but when viewed by the computer, the changed 
and added instructions make quite a difference in the way the program works. The 
program now becomes more practical. We have moved seven lines of code: 3010, 
3012, 3013, 3014, 3015, 3016, and 3017. These lines are now part of the repeat 
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routine instead of the file addition routine. By moving these lines, we have made 
it possible to continue to add more lines of information before writing all the 
information out to the diskette or tape. Once these lines have been moved to the 
repeat routine, they must be deleted from the file addition routine. Then, lines 2130 
and 2140 need to be altered to reflect the change of direction we want the computer 
to take. We now have the flow of logic in order. The two subroutines that occur 
after the end routine are "called" from various points within the program, but control 
is always returned to the point of the originating gosub instruction. It may not 
always be posssible to have every program proceed in order through the program 
instructions, but it is a desirable goal. Proceeding in order makes the flow of logic 
much easier to understand. This top-down approach to programming is one of the 
reasons the "mail. adder 1" program needs alteration and the reason line 3025 must 
be deleted from this "mail.adder2" program. Line 3025 directs the flow of logic to 
a previous routine, which asks if the user wants to add more information. In the 
"mail.adder2" program, the logic flows from the keyboard input routine to the 
correction routine to the repeat routine and back again, until the user indicates that 
he or she is finished entering information. Then, the logic drops from the repeat 
routine (2000-2160) to the file addition routine (3000-3140) and to the end routine 
(5000-5030). 

The transferred lines need some further elaboration. Line 2030 is the start of 
a loop. Again, the logic is fairly easy. We are going to keep the contents of the 
string array line$() in the string array tlines$() also. Then, since we have the 
information stored in two locations in the computer, we can use the line$() string 
array over again. In other words, we have moved the informafion from one memory 
location to another memory location. We have moved it from line$(l) to tlines$(tk 
+ 1), and from line$(2) to tlines$(tk + 2), and so on. The instruction at 2060 
helps us to keep track of all the lines that are typed in. Tk (which may stand for 
total k) is a cumulative total of all the lines of information. For the first set of 
additional information-lines, the value of tk is the number of records already in the 
file. After the first set of information-lines, tk becomes the value of tk plus the 
number of lines of information just entered (k). And in the loop, we have moved 
the contents of the second line$(i) to tlines$(tk + i), after tk has been updated by 
tk = tk -I- k, and so on. This process can continue until we have accumulated 100 
lines of information, or more if you have dimensioned tlines$() to more than 100. 
You can make this number smaller or larger. The number 100 was a completely 
arbitrary choice. If you are adding more lines of information, 2130 must direct the 
computer to begin again by proceeding to the keyboard input routine. 

In the next chapter, we will add some features to our display program and 
combine all our programs so that they can operate together. When you have made 
the necessary changes, be sure to save this new version. There are several ways of 
saving a new version of the same program. But for now, type the following: 

<-mail.adder2 
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Then, type @$ and you should see: 



n 
U 




o4 za 


1 
1 


neilo 


prg 


o 
£. 


"example" 


prg 


1 


"address file" 


seq 




"mall /*roa+a" 


prg 


1 


"adrs-ptr" 


seq 


1 


"adrs-data" 


seq 


4 


"mail.readerl" 


prg 


15 


"mail.adderl" 


prg 


18 


"mail.adder2" 


prg 



609 blocks free 



INSTRUCTIONS FOR TAPE USERS 

Instruction lines that should be changed: 

mail.readerl 

320 open 2, 1,0, "adrs-ptr" 
380 open 3, 1,0, "adrs-data" 

mail.adderl 

280 open 2, 1 ,0, "adrs-ptr" 
286 open 3, 1,0, "adrs-data" 

3030 open 2, 1,1, "adrs-ptr" 
3080 open 3,1,1 , "adrs-data" 

mail.adder2 

280 open 2, 1 ,0, "adrs-ptr" 
286 open 3, 1 ,0, "adrs-data" 

3030 open 2, 1,1, "adrs-ptr" 
3080 open 3, 1,1, "adrs-data" 
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QUESTIONS 



1. True or False: Running the "mail. create" program a second time with new 
information does no harm to the first information stored in the "adrs-data" file. 

2. Give the name of the BASIC command that allows a programmer to place a 
value directly into the computer's memory. 

3. To what does line 3080 in the "mail.adderl" program print the information? 

4. What is the BASIC word used to tell the computer to jump to a certain line 
number? 

5. Give the purpose of the symbols <— , /, and f under the DOS Wedge. 

6. What is the procedure we used to add information to an existing sequential 
data file? 
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ANSWERS 



1. True 

2. Poke 

3. Disk or diskette 

4. GOTO 

5. ^ = SAVE 

/ = LOAD 

I = LOAD and then RUN with the equivalent of pressing the 
RETURN key after each command 

6. (1) Bring the contents of the existing file into the computer's memory. 

(2) Add additional information to the information now in the computer's mem- 
ory. 

(3) Write the now combined information out to the diskette, replacing the old 
file (or renaming the old file and then creating a new file with the original file's 
name). 
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Program for MAIL.READER1 



100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

4 50 

460 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

5000 

5010 

5020 

5030 

9000 

9010 

9020 

9030 

9040 



-raail.readerl--*** 



rem ** — initialization — ** 
home$ = ch r $ ( 1 4 7 ) : r em clr/home 
:cd$ = chr$( 17):reni cursor down 
ylw$ = chr $ ( 1 58) : rem yellow 

poke 53272, 23:rem upper/lower case 
poke 53281,0. 'rem set bkgrd to black 



rem **--new lines for reader--** 

print home$:rem clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem cursor down routine 

print ylw$;"ONE MOMENT PLEASE!" 



rem ** — file input routine--** 

rem * -pointer file-* 

open 2,8,2,"0:adrs-ptr,seq,read" 

input#2 , rec 

close 2 

rem *-data file-* 
dim tlines$(rec) 

open 3,8,3,"0:adrs-data,seq,read' 
for i = 1 to rec 
input#3, tlines$(i) 
next i 

close 3 



tk 



rec : rem total k 



# of lines 



rem * * — d i s j) L a y routine-- 
print home$:rem clr/home 
for i = 1 to tk 
print i;" ";tlines$(i) 
next i 



rem 
end 



-end routine- 



rem ^-'■'--cursor down routine-- 

for i = 1 to cd 

print cd$; 

next i 

return 



ready , 
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■ Program for MA/LADDER 7 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
266 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 

2 86 
287 
288 
289 
290 
291 
292 
293 
294 
300 
310 
320 
330 
340 

3 50 
360 
370 
380 



-mai 1 . adderl- 



rem * ' 


"--initialization 


— ■<• 






iome$ 


= chr$( 147) 


rem 


clr/home 




: : cd$ 


= chr$( 17) 


rem 


cursor 


d 


own 


: : cu$ 


= chr$(145) 


rem 


cursor 


u 


P 


: :cl$ 


= chr$( 157) 


rem 


cursor 


1 


eft 


: : c r$ 


= chrS( 29) 


rem 


cursor 


r 


ight 


: blk$ 


= chr$(144) 


rem 


black 






: ylw$ 


= chr$( 158) 


rem 


yellow 






: wht$ 


= chr$( 5) 


rem 


white 






: r V s $ 


= chr$( 18) 


rem 


reverse 




video 



dim line$(20) 

poke 53272, 23:rem upper/lower case 
poke 53281, Orrera set bkgrd to black 



rem — new lines for adder — ** 

print horae$:rem clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem cursor down routine 

print vlw$;"ONE MOMENT PLEASE!" 



rem **--file input routine-- 

pointer file-* 



rem 




ope 


n 


i n p 


ut 


c I a 


se 


rem 




dim 


t 


ope 


n 


for 


i 


i n p 


ut 


n e X 


t 


c 1 


se 


tk 




rem 




k = 


1 


pri 


nt 


pri 


nt 


pri 


nt 


pri 


n t 


pri 


nt 


pri 


nt 


pri 


nt 



-data file-* 



= 1 to r ec 



rec : rem total k 



to 100 new lines 



# of 1 ines 



'--keyboard input routine- 
; rem line counter 

home$:rem clr/home 

tab( 5) 

rvs$;:reiii reverse 
"INSTRUCTIONS" 
y lw$ : rem yel low 
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390 print "Do not use a comma or colon!" 
400 print "Press "; wht$ ; "RETURN" ; ylw$ ; 
410 print " after each line." 
420 print 

430 print "Type the word " ; wht$ ; "END" ; ylw$ ; " when finished," 
440 print 

450 print "Type in line ";k;":" 
460 poke 19,32:rem disable input ? 
470 input line$(k) 
480 print 

490 if line$(k) = "end" or line$(k) = "END" then 540 

500 if line$(k) = "" then print "We need some information.": 

goto 440 
510 k = k + 1 

520 goto 440:reiii go back for more 
530 : 

540 line$(k) = "*":rem separator for phone number 
550 k =!= k + 1 

560 print home$:rera clr/home 

570 cd = 3:rera 3 lines down 

580 gosub 9000:rem cursor down routine 

590 print "PHONE: ";:print "Press "; wht$ ; "RETURN" ; ylw$ ; " if 

none . " 
600 input line$(k) 

610 if line$(k) = "" then line$(k) = "NONE" 
620 k = k + 1 

630 llne$(k) = " ! " : rem separator between sets of information 
640 : 
650 : 

660 rem ** — correction routine--** 

670 print home$:rem clr/home 

680 cd = 3:rem 3 lines down 

690 gosub 9000:rem cursor down routine 

700 print "Do not change the line with the " ; wht$ ; "*" ; ylw$ ; " . 
710 print "This symbol is used as a separator." 
720 print 

730 for i = 1 to k - 1 
740 print i;" ";line$(i) 
750 next i 
760 print 

770 print "Change any line? "; 

780 gosub 8000:rem y/n input routine 

790 print 

800 if yes$ = "y" then 850 
810 if yes$ = "n" then 830 
820 : 

830 goto 3000:rem file addition routine 
840 : 

850 prlnt:input "Change which line? ";ln 
860 print 

870 if In > k - 1 then print "Number too large!":goto 850 
880 if line$(ln) = "*" then print "Line " ; In ; " i s the *":goto 8 
890 print "Line" ; In ; "now is:" 
900 print line$(ln) 
910 print 
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920 print "Li ne " ; 1 n ; "shou 1 d be:" 
930 input line$(ln) 

940 goto 660:rera correction routine 
950 : 
960 : 

2000 rem ** — repeat routine — 

2080 print honie$:reiii clr/home 

2090 cd = 3:rem 3 lines down 

2100 gosub 9000:rera cursor down routine 

2110 print "Do you want to add more information?" 

2120 gosub 8000:rera y/n input routine 

2130 if yes$ = "y" then run 

2140 if yes$ = "n" then 5000 

2150 : 

2160 : 

3000 rem **--file addition routine--** 
3010 : 

3012 rem *-add new lines to exist, file lines-* 

3013 for i = 1 to k 

3014 tlines$(tk + i) = line$(i):rem tk + i, not tk + 1 

3015 next i 

3016 tk = tk + k 

3017 : 

file-* 



3020 


r e m 


- p 


i n t e 


3030 


open 


2 , 8 


2 " 


3040 


pr i n 


t#2, 


tk 


3050 


c 1 o s 


e 2 





3060 : 

3070 rem *-data file-* 

3080 open 3 , 8 , 3 , " @0 : a d r s- da t a , s eq , wr i t e" 
3090 for i = 1 to tk 
3100 print#3, tlines$(i) 
3110 next i 
3120 close 3 

3125 goto 2000:rem repeat routine 
3130 : 
3140 : 

5000 rem **--end routine--** 
5010 end 
5020 : 
5030 : 

8000 rem **--v/n input routine — ** 

8010 print "Type a " ; wht$ ; " Y" ; y lw$ ; " or " ; wh t $ ; "N" ; y 1 w$ ; " 
8020 poke 19,32:rem disable input ? 



or yes$ = "Y" then yes$ = "y":return 
or yes$ = "N" then yes$ = "n":return 



k again 
8110 : 
8120 : 

9000 rem **--cursor down routine- 



8030 


input yes3 




8040 


print 




8050 


if y e s $ = 


"y" 


8060 


if y e s S = 


"n" 


8070 


print 




8080 


print rvsj 


; ; " I 


8090 


print 




8100 


goto 8000; 


rem 



74 CHAPTER FIVE 



9010 for i = 1 to cd 
9020 print cd$; 
9030 next i 
90A0 return 

ready. 



■ Program for MAIL.ADDER2 

100 rem ** *--raai 1 . ad der 2 — *** 
110 : 
120 : 



130 


rem ** 




-initialization 




140 


hoine$ 




chr$( 147) ; 


; rem 


clr/home 


150 


: : cd$ 




chr$( 17); 


; rem 


cursor down 


160 


: : cu$ 




chr$( 145) ; 


: rem 


cursor up 


170 


: : c 1 $ 




chr$(157) : 


: r era 


cursor left 


180 


: : c r $ 




chr$( 29); 


: rem 


cursor right 


190 


: blk$ 




chr$( 144) ; 


; rem 


black 


200 


: ylw$ 




chr$( 158) 


: rem 


yellow 


210 


:wht$ 




chr$( 5): 


: rem 


white 


220 


: rvs$ 




chr$( 18): 


: rem 


reverse video 



230 : 

240 dim line$(20) 

250 poke 53272, 23:rem upper/lower case 
260 poke 53281, 0:rem set bkgrd to black 

265 : 

266 : 

270 rem — new lines for adder--** 

271 print home$:reni clr/horae 

272 cd = 5:rem 5 lines down 

273 gosub 9000:rem cursor down routine 

274 print ylw$;"0NE MOMENT PLEASE!" 

275 : 

276 : 

277 rem ** — file input routine--** 

278 : 

279 rem * -pointer file-* 

280 open 2 , 8 , 2 , "0 : adr s-ptr , seq , read" 

281 input#2,rec 

282 close 2 

283 : 

284 rem * - d a t a file-* 

285 dim tlines$(rec + 100):rera add up to 100 new lines 

286 open 3 , 8 , 3 , "0 : ad r s-dat a , seq , read" 

287 for i = 1 to rec 

288 input#3, tlines$(i) 

289 next i 

290 close 3 

291 : 

292 tk = rec:rem total k = # of lines 

293 : 

294 : 
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300 rem **--ke y boar d input routine--** 

310 k = l:rem line counter 

320 print horae$:reni clr/home 

330 print tah(5) 

340 print rvs$;:rem reverse 

350 print "INSTRUCTIONS" 

360 print ylw$:reni yellow 

370 print "Type name and address as if" 

380 print "addressing an envelope." 

390 print "Do not use a comma or colon!" 

400 print "Press "; wht $; "RETURN "; y 1 w$ ; 

410 print " after each line." 

420 print 

430 print "Type the word " ; wht$ ; "END" ; ylw$ ; " when finished." 
440 print 

450 print "Type in line " ; k ; " : " 
460 poke 19,32:rem disable input ? 
470 input line$(k) 
480 print 

490 if line$(k) = "end" or line$(k) = "END" then 540 
500 if line$(k) = "" then print "We need some information.": 
goto 440 
k + 1 

440:rem go back for more 

$(k) = "*":rera separator for phone number 
k + 1 

t home$:reni clr/home 

3:rem 3 lines down 
b 9000: rem cursor down routine 

t "PHONE: ";:print "Press wht$ ; "RETURN" ; ylw$ ; " if 
II 

600 input line$(k) 

610 if line$(k) = "" then line$(k) = "NONE" 
620 k = k + 1 

630 line$(k) = "!":rem separator between sets of information 
640 : 
650 : 

660 rem ''"''--correction routine — 

670 print home$:rem clr/home 

680 cd = 3:rem 3 lines down 

690 gosub 9000:rera cursor down routine 

700 print "Do not change the line with the "; wh t $;"*"; y 1 w $;" . 
710 print "This symbol is used as a separator." 
720 print 

730 for i = 1 to k - 1 
740 print i;" ";line$(i) 
750 next i 
760 print 

770 print "Change any line? "; 

780 gosub 8000;rem y/n input routine 

790 print 

800 if yes$ = "y" then 850 
810 if yes$ = "n" then 830 
820 : 



510 


k = 


520 


goto 


530 




540 


line 


550 


k = 


560 


p r i n 


570 


cd = 


580 


gosu 


590 


pr in 




none 
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830 
SAO 
850 
860 
870 
880 

890 

900 

910 

920 

930 

940 

950 

960 

1000 

1010 

1020 

1030 

1040 

1050 

1060- 

1070 

1080 

1090 

1 100 

1110 

1120 

1130 

1140 

1 150 

1 160 

1 170 

1 180 

1 190 

1200 

1210 

1220 

1230 

1240 

1250 

1251 

1252 

1 253 

12 5 4 

125 5 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

2000 

2010 



goto 1000:rera print label routine 

print:input "Change which line? ";ln 
print 

if In > k - 1 then print "Number too large!":goto 850 
if line$(ln) = "*" then print "Li ne" ; 1 n ; " i s the *":got 
850 

print "Line" ; In ; "now is:" 

print line$(ln) 

print 

print "Line" ; In ; "should be:" 
input line$(ln) 

goto 660:rera correction routine 



rem — print label routine--** 

print home$:rem clr/horae 

cd = 3 : rem 3 lines down 

gosub 9000:reni cursor down routine 

print "Would you like to print a" 

print 

print "mailing label now?" 
print 

gosub 8000:rem y/n input routine 
if yes$ = "y" then 1120 
if yes$ = "n" then 2000 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rera cursor down routine 

print "Please make sure the printer" 

print 

print "is on and ready to use." 
print 

print "Are you ready to begin printing?" 
print 

gosub 8000:rem y/n input routine 
if yes$ = "n" then 1000 

rem — printer channel — ** 
open 4,4,7 

rem first 4 = file # 

rem second 4 = printer device # 

rem 7 = command for upper/lower case 

for i = 1 to k 

if line$(i) = "*" then i = i + l:goto 1300 
if line$(i) = "!" then 1300 
pr int #4 , line$ ( i ) 
next i 
close 4 



-repeat routine--** 
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2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
5000 
5010 
5020 
5030 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
9000 
9010 
9020 
9030 
9040 



rem *-add new lines to exist, file lines-* 
for i = 1 to k 

tlines$(tk + i) = line$(i):rem tk + i, not tk + 1 

next i 

tk = tk + k 

print horae$:rera clr/home 

cd = 3:rem 3 lines down 

gosub 9000: rem cursor down routine 

print "Do you want to add more information?" 

gosub 8000:rem y/n input routine 

if yes$ = "y" then 300 

if yes$ = "n" then 3000 



file addition routine- 



rem 




f i 


rem * 


-po 


i n 


open 


2,8 


,2 


print 


#2, 


tk 


close 


2 




rem * 


-da 


ta 


open 


3,8 


, 3 


for i 




1 



pr int#3 , tlines$( i ) 
next i 
close 3 



rem 
end 



rem 

print 

poke 

input 

print 

if ye 

if ye 

print 

print 

print 

goto 



-end routine- 



=;< — V / n input routine — * * 

"Type a " ; w h t $ ; " Y " ; y 1 w$ ; " or " ; wh t $ ; " N " ; y 1 w^ 
19,32:rem disable input ? 

yes$ 



"y" or yes$ 
"n" or yes$ 



"Y" then yesj 
"N" then yes^ 



return 
return 



rvs$; "Incorrect Choice! ";ylw$ 
BOOOrrem ask again 



rem * 


* — cu 


rsor down 


for i 


= 1 


to c d 


print 


cd$; 




next 


i 




retur 


n 





ready . 
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displaying 
sequential 
files 



In this chapter, we will begin to put together a system of programs and improve 
our display program. When you want to use the "mail. reader 1" program, you must 
type: f mail.readerl if you have first loaded the DOS Wedge (if not, the following 
sequence is necessary: load "mail.readerl",8 [RETURN] run [RETURN]). And 
when you are ready to add to the file, you need to type: | mail.adder2 (or "1" 
depending on your preference). For occasional use, that amount of typing is not a 
problem, but if you are going to use the programs quite often, the necessity of 
typing a specific syntax and the file name can become bothersome. Besides, the 
computer can help eliminate the need to type that, so why not let it do so? All that 
is needed is another program. You will still have to type f and the name of this 
new program. The difference is that when properly set up, you may need to do the 
typing only once, and then you will be able to switch back and forth between 
programs with little typing other than a number. You will then have a system of 
programs that work together and are controlled by one master program. 

Unfortunately, for tape users, this method depends upon the storage device 
being able to access any of the programs in any order. Such access virtually 
eliminates tape because of its sequential nature. A possible alternative is to combine 
all these programs into one large program and, therefore, retain all parts within the 
computer's memory. Separately, these programs contain between 20 and 25 K 
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(kilobytes: a kilobyte is roughly equivalent to a thousand characters) of program 
code, which leaves approximately 13 to 18 K for data.) 

Let's see how this can work. Make sure any program currently in memory is 
saved on diskette, and then type the following: 



new 

100 rem ***--mail.menu--*** 
110 : 
120 : 

130 rem **--initialization--** 

140 home$ = chr$(147):rem clr/home 

150 ::cd$ = chr$( 17): rem cursor down 

160 ::cu$ = chr$(145):rem cursor up 

170 ::cl$ = chr$(157):rem cursor left 

180 ::cr$ = chr$( 29):rem cursor right 

190 :blk$ = chr$(144):rem black 

200 :ylw$ = chr$(158):rem yellow 

210 :wht$ = chr$( 5):rem white 

220 :rvs$ = chr$( 18): rem reverse video 

230 : 

240 poke 53280,1 4: rem border = It.blue 
250 poke 53272,23: rem upper/lower case 
260 poke 53281, 6:rem set bkgrd to blue 
270 : 
280 : 



These lines are essentially the same instructions used in the "mail. create", 
"mail.adderl", and "mail.adder2" programs. The differences occur in lines 100, 
240, and 260. Line 100 indicates the name for this program, "mail. menu". Line 
260 sets the background color to dark blue instead of the black color used in the 
other programs. Different color backgrounds can be used to indicate different func- 
tions. Line 240 is used to set the color of the border. In this menu program, we 
do not need to dimension any string variables and can replace that instruction 
contained in the other programs. Since Commodore's BASIC does not have a delete 
instruction (an instruction that allows a programmer to delete a range of lines), it 
is just about as fast to re-enter these program lines as it is to load one of the other 
programs, make the necessary changes, and then line by line delete instruction- 
lines that will not be needed in this "mail. menu" program. Regardless of the method 
you choose, the next group of program lines displays the choices available. Enter 
the following carefully: 
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500 


rem 


**--menu-** 


510 


tb = 


5: rem tab value--5 spaces rt. 


C O A 

520 


print 


home$:rem cir/home 


530 


prim 


wht$ 


540 


print 


tab(tb + 3) 


can 
bbO 


print 


rvs$; 


cert 

560 


prim 


MAIL PROGRAIVI MENU 


570 


print 




con 

580 


prim 


yiw$ 


590 


print 


tab(tb) 


dOO 


print 


1. FILE CREATION PROGRAM 


blO 


print 


:print tab(tb) 


Ron 


prin1 


z. rILt AUUI 1 lUN rnUonAIVl 


con 


prin1 


.print tab(tb) 


O'HJ 


prin1 


o. rILb UlbrLAY rnUCjRAM 


650 


print 


:print tab(tb) 


660 


print 


4. FILE CORRECTION PROGRAM 


670 


print 


:print tab(tb) 


con 
boO 


prin1 


5. LIbT UP rILbb 


690 


print 


:print tab(tb) 


700 


print 


"6. END" 


710 


print 


: print tab(tb) 



720 poke 19,32:rem disable input ? 

730 input "Which Program Number? ";nu$ 

740 number = val(nu$) 

750 : 

760 if number = 1 then 1000 
770 if number = 2 then 2000 
780 if number = 3 then 3000 
790 if number = 4 then 4000 
800 if number = 5 then 5000 
810 if number = 6 then 6000 
820 : 

830 rem *-incorrect choice message--* 
840 print:print 
850 print tab(tb) 

860 print rvs$; "Incorrect Choice!" 

870 print 

880 print tab(tb) 

890 print "Press ";wht$;"RETURN";ylw$;" to continue:"; 
900 gosub 19000:rem return key routine 
910 goto 500:rem menu-check again 
920 : 
930 : 
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Line 540 uses a new BASIC statement — tab. This tells the computer to horizontally 
tab over a certain number of spaces (the number stored in the numeric variable tb) 
and then display the contents of the next print statement. 1 use a variable so that I 
have to change only one instruction line (line 510) if I don't like the positioning 
on the screen. 

Line 740 uses the first of several instructions available to manipulate string 
variable information. Instruction-line 730 stores the user's response in the string 
variable nu$. Line 740 then takes the numeric value (val) of the string — (nu$). 
Lines 760 to 810 check this value, now stored in two different memory locations, 
number and nu$, and direct the computer to jump to the appropriate program 
location. If the value of number is not between 1 and 6, the computer proceeds to 
the "incorrect choice message" routine. After displaying the message, the computer 
is directed to go to the subroutine located at line 19(X)0. The full explanation of 
this subroutine will be gi ven in the proper secjuence, but once the user has pressed 
the RETURN key, control is returned to line 910, which sends control back to line 
500, the instruction that once again begins the menu routine. 

1000 rem **-file creation prog.-** 

1010 print home$:rem cir/honne 

1020 cd = 2:rem 2 lines down 

1030 gosub SOOOrrem cursor down routine 

1040 print tab(15) 

1050 print rvs$; 

1060 print "WARNING!" 

1070 print.print 

1080 print "If the 'adrs-data' file already exists," 
1090 print 

1100 print "do NOT run this program!" 
1110 print 

1120 print "Do you want the file creation program?" 
1130 print 

1140 gosub 8000:rem y/n input routine 
1150 if yes$ = "n" then 500:rem menu 
1160 print:print 

1170 print "Are you sure? Type ";wht$;"YES";ylw$;" if you are:"; 
1 180 input yes$ 

1190 if yes$ = "YES" or yes$ - "yes" then 1210 
1200 goto 1000: rem check again 
1210file$ = "MAILCREATE" 

1220 gosub 7100:rem new program routine after question 
1230 t "mail. create" :rem load & run 
1240 : 
1250 : 
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Most of this routine is not necessary but does provide the user with enough infor- 
mation and/or escape hatches so that, if Hne 1230 is finally reached, we can be 
certain that the instruction has not been reached by accident. The purpose for 
including so many checks is to indicate the necessity on the part of the programmer 
to attempt to protect the user from making a disastrous mistake with files. The other 
options do not contain the same potentially disastrous possibilities and, therefore, 
the following routines do not need to provide the same level of error checking. 

2000 rem **~file addition prog.--** 

2010file$ = "MAIL.ADDER2" 

2020 gosub 7000: rem new program routine 

2030 t "mail.adder2":rem load & run 

2040 : 

2050 : 

3000 rem **~file display prog.--** 

3010file$ = "MAIL.READER2" 

3020 gosub 7000:rem new program routine 

3030 t "mail.reader2":rem load & run 

3040 : 

3050 : 

4000 rem **~file correction prog.-** 
4010file$ = "MAIL.CORRECTION" 
4020 gosub 7000 .rem new program routine 
4030 t "mail.correction":rem load & run 
4040 : 
4050 ; 

5000 rem **~list of files routine-** 

5010 print home$;rem clr/home 

5020 @"$":rem wedge/diskette directory 

5030 print cu$;chr$(13):rem 13 = rtn 

5040 print "Are you ready to return to the menu?" 

5050 print 

5060 gosub 8000:rem y/n input routine 
5070 if yes$ = "y" then 500:rem menu 
5080 goto 5000: rem check again 
5090 : 
5100 : 

6000 rem **-end routine-** 

6010 poke 19,0:rem restore input prompt 

6020 print home$:rem clr/home 

6030 cd = 5: rem 5 lines down 

6040 gosub 9000: rem cursor down routine 

6050 print tab(tb) 
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6060 print rvs$; 

6070 print "That's all for this session!" 
6080 print:print:print 
6090 print tab(tb + 5) 
6100 print rvs$; 

6110 print "See you next time." 
6120 print yiw$ 

6130 cd = 10:rem 10 lines down 

6140 gosub 9000:rem cursor down routine 

6150 end 

6160 : 

6170 : 

In the routines at 2000, 3000, and 4000, the first hne titles the routine. The second 
line sets the string variable file$ equal to the appropriate program name. The third 
line transfers control to the new program routine, which is used to display the action 
the computer is taking when the fourth line executes. This fourth line uses the DOS 
Wedge syntax to load the specified program file and then begin execution according 
to that program's set of instructions. The symbol used by the DOS Wedge to load 
and run a program is the up arrow. This character is often printed out as ' rather 
than 1 . (Although it is not impossible to load and run one program from another 
without the DOS Wedge, it is certainly more complicated and, at this stage, more 
confusing.) In other words, we simply instruct the computer to go to the diskette, 
load, and then run the new program. Control is transferred to the new program, 
and the computer receives and follows the instructions contained in that program. 
Such transfer of control erases the "mail. menu" program from the computer's 
memory, replacing those instructions with the instructions in the selected program. 
That is why it is very important to SAVE this "mail. menu" program to diskette 
before RUNing it. Even though we are not finished with this program, the fourth 
instruction in each of these routines is operational and will transfer control to the 
appropriate program, erasing all your typing if you have not saved the program 
lines to the diskette. The instructions will only become operational if the program 
is RUN. 

The list of files routine and the end routine contain little that is new. Again, 
each of these routines can be accomplished with fewer lines of programming code, 
but the additional lines give the user a more pleasing, easier program. You should 
note that when used within a program the DOS Wedge syntax is a little different — 
a difference I could not find documented anywhere. In the immediate mode, there 
is no need for quotation marks surrounding the file name. Yet, within a program 
or in the deferred mode, the quotation marks are essential. Therefore, to display a 
list of files on a diskette, @S (without quote marks) works fine from outside a 
program, but @$ gives a syntax error if used within a program. Inside a program 
(as an instuction-line with a line number), the syntax must be: @"$". The same 
rule also applies to other DOS Wedge commands used from within programs. 
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The routine at 8000 (y/n input routine) and 9000 (cursor down routine) are the 
same routines presented in earlier programs. The code can also be found in the 
complete listing of the "mail. menu" program given at the end of this chapter. The 
routines at 7000 (new program routine) and 19000 (return key routine) are new and 
will be covered in some detail. Neither of these routines is necessary since, in some 
cases, single line instructions can accomplish the same thing. The inclusion of these 
routines, though, makes the entire "mail. menu" program a much more "profes- 
sional" looking program. 

7000 rem **--new program routine--** 

7010 print home$:rem cir/home 

7020 cd = 2:rem 2 lines down 

7030 gosub 9000: rem cursor down routine 

7040 print "You have selected the ";file$:print:print "program." 

7050 print:print:print 

7060 print "Is this the program you want?" 

7080 gosub 8000:rem y/n input routine 

7090 if yes$ = "n" then 500:rem menu 

7100 print home$:rem cIr/home 

7110 cd = 5:rem 5 lines down 

7120 gosub 9000:rem cursor down routine 

7130 print tab(tb) 

7140 print rvs$; 

7150 print "Please wait!" 

7160 print:print:print 

7170 print tab(tb -I- 5) 

7180 print rvs$; 

7190 print "I'm loading. . . ." 

7200 print:print:print 

7210 print tab(tb + 10) 

7220 print rvs$; 

7230 print file$ 

7240 poke 19,0: rem restore input prompt 
7250 return 
7260 : 
7270 : 

The main purpose of this routine is to notify the user that the computer is changing 
programs. Some programs take a while to load from the diskette, and rather than 
have the user sit with a blank screen, the program should inform what action is 
being taken. The only action instruction comes in line 7240. Location 19 is restored 
to the original value before the computer changes programs. It is a very good idea 
to try to leave things in their original form when you leave a program. The same 
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principle can apply to the colors used for text, background, and border. But since 
information is still being displayed, it is acceptable to leave the color settings and 
allow the next program to change the colors if necessary. 

19000 rem **--return key routine--** 
19010 poke 198,0:rem cir kbrd buffer 
19020 for 1 = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek(197):renn store key press 
19060 if X = 1 then 19080:rem 1 = rtn 
19070 goto 19050: rem if not 1 go back 
19080 poke 198,1 :rem allow for cursor 
19090 poke 631,0:rem cir kbrd 
19100 nu$ = "":rem cir string variable 
19110 return 

The entire purpose of this routine is to check for the press of the RETURN key. 
When the question mark used for the input prompt is disabled with a poke 19,32, 
the actual input routine in the operating system is changed. Sometimes the changes 
are desirable, and other times the changes require considerable code to fix. The 
latter is the case in this situation. Location 198 is used to inform the computer of 
the number of characters waiting in the keyboard buffer. Locations 63 1 to 640 are 
the actual keyboard buffer area. These locations are cleared by the code in lines 
19020 to 19040. Memory location 197 stores a value for each key pressed. Un- 
fortunately, this value is not the same value used in determining the code for all 
characters {i.e., ASCII). This value, stored in location 197, is a Commodore value 
derived from the location of the keys on the keyboard. Furthermore, it is a rather 
complicated calculated value. The best advice is to simply memorize the values of 
desired keys or establish a table (list of values) of all the keys. A list of the values 
obtained when each key is pressed is included in the appendix. The value of the 
return key is one. Therefore, when the numeric variable x equals 1, we know that 
the return key has been pressed. The keyboard buffer must be cleared prior to the 
check (the loop in lines 19020-19040), or x might pick up a previous return key. 
When x does equal 1, the computer can proceed to the end of this subroutine. Lines 
19080, 19090, and 19100 restore values and prepare the computer to leave the 
routine. Line 19110 returns control to the instruction following the origination 
instruction. 

When you have all the program lines typed in, save it to disk as "mail. menu". 
«-mail.menu 

The "mail. menu" program should take up 17 blocks and leave the diskette with 
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592 blocks free. Now, all that is needed to run any of our programs is: f mail. menu. 
Then, choose a number and let the computer do the rest. Please notice that I have 
included a choice for a program that we do not yet have, that is, file correction 
program (lines 690 and 4000-4030) and an update to the "mail. reader 1" program 
called "mail.reader2" (lines 3010 and 3030). But we still do not have a system of 
programs. What will happen, for example, when you are finished adding information 
and the information has been written out to the disk? Will the program return you 
to this new "mail. menu" program? If you are not sure, check any of our previous 
programs to see if they contain instmctions to load and run this "mail. menu" 
program. Instead, each program contains an instruction-line, line 5010, that ends 
the operation of the program. That is the reason we must include instructions to 
run "mail. menu" in each of our previous programs. We can add the necessary lines 
to each program by loading the respective program into the computer's memory, 
adding the appropriate line numbers, and then saving each program back to the 
diskette under its same name. Type: 

/mail. create 

The return to menu routine is: 

5000 rem **--return to program menu-** 
5010 poke 19,0:rem restore input prompt 
5020 rem cir/home cursor down routine 
5030 print home$:cd = 5:gosub 9000 
5040 print tab(5) 
5050 print rvs$; 

5060 print "LOADING THE MAIL.MENU PROGRAM" 
5070 t"mail.menu" 
5080 : 
5090 : 

When you have finished, type: 
<—(§): mail. create 

Follow the same procedure for "mail.adder2". Type: 
/mail.adder2 

Now, instead of retyping the above instructions, use the cursor up key to go to the 
5 in line 5000. If you press the RETURN key on each of the line numbers between 
5000 and 5090, those lines will be added to the "mail.adder2" program just as if 
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you had retyped them. Again, when you have finished, remember to save the 
corrected version. Type: 

<-@:mail.adder2 

If you display the directory, you will see that the "mail.adderZ" program has 
increased the number of blocks it uses by one to a total of 19. That increase thus 
decreases the number of free blocks to 591. We now have a system of programs 
that work together and are controlled by one master program. There is no need to 
go through all the antics that are sometimes involved in building one large program. 
In addition, it is much easier to make changes to individual programs than to change 
something in a large program that might have an unnoticed effect. This borders 
somewhat on programmer preference, but I have found this method to be easy. 

We now have a system that will create a file, add to that file, and, in a primitive 
way, read the file. Two main tasks are left: (1) improving the display features of 
the "mail.readerl" program, and (2) creating a program that will change and delete 
information in the file. One other feature that we will add within our display program 
is the reformatting of our data with the possibility of creating a new file for these 
reformatted data. We will begin with the program to increase our display options. 



MAIL.READER2 

Our present program displays every line in the "adrs-data" file, including the two 
separator symbols. You don't really want to see those symbols, so eliminating them 
should be one of the first tasks in creating a new display program. What else would 
be nice or useful to have in this display program? The computer could display a 
list of just the names of the individuals in the file. How about a list of the names 
and addresses without the phone numbers? Can we get a display of a single name, 
address, and phone number? How about a single name and address, without a phone 
number? What about an alphabetical list? Can we have a range of names and 
addresses displayed rather than just the entire list or a single individual? The answer 
to all these questions is "yes," we can do these things and others also. With all 
these possibilities, the obvious solution would be to have a menu for these choices. 

There are several ways to go about creating a program that uses the same 
routines as other programs. The most obvious is to rekey in all the instructions 
{i.e., type everything in again). A far better (and faster) method is to use a pro- 
grammer's utility program that allows the merging of program segments. If you 
have such a utility (such as the aforementioned SYSRES program), operational 
routines can be saved separately on a diskette that contains a library of such routines. 
Then, when you are creating a new program, these routines can be incorporated 
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directly into the new program without the necessity of retyping the instructions and 
with the certain knowledge that the routines will operate correctly (if you have been 
consistent and careful in the choice of your variable names, etc.). If the routine 
needs to be placed at a different point in the new program, a renumber utility 
program can alter the line numbers of the routine so that the routine will fit within 
the desired program. The use of such utility programs is widespread among profes- 
sional programmers and may help explain why a programmer's work will look 
similar from program to program. 

Without a utility program, you can approximate the library of routines by 
loading a program that contains many of the routines you will be using, changing 
instruction-lines and line numbers that need changing, deleting lines that will not 
be used, and adding instruction-lines that are needed. This method is certainly more 
time consuming than if you had access to a good utility program, but it is also less 
expensive. The results, if you are careful, should be the same. I will give the 
specific instructions necessary to change the "mail.adder2" program into our new 
"mail.reader2" program. But if you become confused or lost, you can always turn 
to the end of this chapter and type in the full listing of this "mail.reader2" program 
directly or obtain the diskette. The instructions may sound complicated or time 
consuming, but I assure you that the instructions will work if followed exactly. 1 
have tested these instructions to make certain that they do not contain errors. 

First, load the "mail.adder2" program (but make certain that you have saved 
any program in memory and/or that you have loaded the DOS Wedge program). 
Type: 

/mail.adder2 

Change line 100 to: 

100 rem ***--mail.reader2-*** 

Add line 225: 

225 :bnk$ = chr$( 10):rem blank line 
Change line 240 to: 

240 poke 53280,14:rem border = It.blue 
Change line 260 to: 

260 poke 53281, 2: rem set bkgrd to red 
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Change line 270 to: 

270 rem **--user message--** 

And finally, change line 285 to: 

285 dim tlines$(rec),nd$(rec),u(rec),r(rec),ad$(rec),zi$(rec) 

Down to line 300, these are the only additions or changes that need to be made. 
Beginning at line 300, we have a large number of instructions that are not needed 
in "mail.reader2". If we could delete a range of lines, we would want to delete 
everything from line 300 through line 960. Since we cannot, the next best thing is 
to type the unnecessary instruction's line number and immediately press the return 
key. The sequence of typing a line number and immediately pressing the return 
key causes the computer to erase the previous instruction associated with that line 
number and replace it with the new instruction. Since there is no new instruction, 
the line number has no value and, therefore, ceases to be a part of the program. 
We have deleted that line number and its unnecessary instruction. As troublesome 
as it may sound, this delete sequence must be followed for all lines from 300 to 
960. Since all the numbers are in increments of ten, we need not check the actual 
numbers used, i found that the process takes about two minutes and has less chance 
of error than re-entering all duplicate instruction-lines from scratch. But type care- 
fully. A misplaced digit can result in the wrong line being eliminated. 
{RETURN} indicates that the RETURN key is to be pressed. 



300 {RETURN} 
310 {RETURN} 
320 {RETURN} 
330 {RETURN} 
340 {RETURN} 



(all intervening numbers) 



920 {RETURN} 
930 {RETURN} 
940 {RETURN} 
950 {RETURN} 
960 {RETURN} 
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When you have finished deleting the lines, list 300-960 in order to make certain 
that all lines have been deleted. In the same way, delete all line numbers from 
2000 through 2160 and 3000 through 3140. 

The next group of instructions are the ones most likely to cause confusion. 
The intent is to change the line numbers in the currently titled "print label routine". 
By changing the line numbers, we will transfer the instructions in this routine to a 
routine called "display routine" that will exist beginning with line number 10000. 
First, list lines 1000 to 1 100 by typing: list 1000-1 100. Second, use the SHIFT 
key and the cursor up/down key to move the cursor up to the 1 in line 1000. Third, 
using just the cursor left/right, position the cursor on the second digit of the line 
number (the first in this case). Fourth, use the SHIFT key and the INST/DEL to 
insert one space between the 1 and the first 0. Fifth, type the number zero (press 
the key). Sixth, press the RETURN key to accept the line as correct. The computer 
now has a line 1000 and a line 10000. The cursor should be blinking on top of the 
1 in line 1010. 

You should repeat steps three, four, five, and six for the remaining lines. Then, 
list line numbers 1 1 10 to 1230 and begin with the second step. Again, steps three, 
four, five, and six should be followed for each of these listed lines. When you are 
finished, you will have the beginning of our new "display routine". 

You now have two routines that are the same except for their line numbers. 
We no longer need the instructions that exist between 1000 and 1330, so use the 
method described above to delete these lines. Once again, although somewhat 
tedious, this procedure is probably less prone to error than retyping all the instruc- 
tions between 1000 and 1230. Please notice that you are to renumber only through 
line 1230 but should delete the entire "print label routine" (including lines 1251, 
1252, 1253, 1254, and 1255) once the appropriate lines have been copied to lines 
10000 to 10230. 

A few lines in this "display routine" must still be changed. Change line 10000 

to: 

10000 rem **--display routine-** 

You can accomplish this change either by editing the existing line or typing the 
line over again. If you want to make the change by editing the existing line, first 
list fine 10000 by typing: list 10000. Second, use the SHIFT key and the cursor 
up/down key to move the cursor up to the 1 in line 10000. Third, using just the 
cursor left/right key, position the cursor on the character p in the word print and 
type: display routine. Fourth, use the cursor left/right key to place the cursor on 
the first right-side dash. Fifth, use the INST/DEL key to delete the now duplicate 
letters e nit (reading from right to left in the same manner the DEL key functions). 
Sixth, press the RETURN key to accept the corrected version of this instruction 
line. This same procedure can be used to edit, correct, or change any existing 
instruction line. 
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Continuing with the necessary changes in the new display routine, change line 
10040 to: 

10040 print "Would you like a paper print out?" 

Delete lines 10060 and 10070: 

10060 {RETURN} 
10070 {RETURN} 

Change the indicated lines to: 

10080 gosub 18000:rem y/n input routine 
10090 if yes$ = "y" then 10120:rem prnt 
10100 if yes$ = "n" then 10300:rem scrn 
10210 gosub IBOOOirem y/n input routine 
10220 if yes$ = "n" then 10000 

Finally, add the following lines: 

10240 rem *-printer display-* 
10250 file = 4 
10260 dvic = 4 
10270 cmnd = 7 

10280 goto 10500: rem open instruction 
10290 : 

10300 rem *-screen display-* 
10310 file = 3 
10320 dvic = 3 
10330 cmnd = 1 

10340 goto 10500: rem open instruction 
10350 : 
10360 : 

10500 rem *-open instruction-* 
10510 open file,dvic,cmnd 
10520 return 
10530 : 
10540 : 
10550 : 

This new display routine allows us to use one print statement in each of our 
different display options. The output will go to either the printer (device number 
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4) or to the screen (device number 3), depending on the response given to the 
question displayed by line 10040. 

Two more routines need to be moved. List lines 8000 through 8120. Use the 
procedure presented above to renumber these lines so that they are lines 18000 
through 18120. First, list lines 8000 to 8120 by typing; list 8000-8120. Second, 
use the SHIFT key and the cursor up/down key to move the cursor up to the 8 in 
line 8000. Third, use the SHIFT key and the INST/DEL key to insert one space 
before the 8. Fourth, type the number one (press the 1 key). Fifth, press the 
RETURN key to accept the line as correct. Steps three, four, and five should be 
repeated for each of the listed lines. When all the lines have been changed, the 
routine still at 8000 needs to be deleted. Carefully delete lines 8000 through 8120 
in the manner described above; 8000 {RETURN}, 8010 {RETURN}, etc. Finally, 
the newly renumberd "y/n input routine" has one line that must be changed and 
one line that should be added. Change line 18100 to; 

18100 goto 18000:rem begin again 

Add line 18130; 

18130 : 

The addition of this line is purely aesthetic. The longer the program, the more space 
between routines is needed. Now list 50(X} to 5090. Move the cursor up to the 5 
in 50(X). Type a number 8 in place of the 5 and press the RETURN key. Continue 
to change each of the listed lines. Once all the lines have been changed, delete 
lines 5000 to 5090. For aesthetic reasons, add 9050 : and 9060 ;. To be sure that 
all lines have been deleted, list 300-80(X). If you have followed these directions 
exactly, the only line that should show on the screen is line 8(X)0. 

To finish, we need two brief subroutines; the "return key subroutine" and the 
"retum-to-menu subroutine". 

19000 rem **--return key routine--** 
19010 poke 198,0:rem cir kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek(197):rem store key press 
19060 if X = 1 then 19080: rem 1 = rtn 
19070 goto 19050: rem if not 1 go back 
19080 poke 19,0:rem restore input prompt 
19090 poke 198,1 :rem allow for cursor 
19100 poke 631,0:rem cIr kbrd 
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19110 nu$ = "":rem cir string variable 
19120 return 
19130 : 
19140 : 
19150 : 

20000 rem **--menu return routine-** 
20010 print#file 
20020 close file 
20030 print 

20050 print "Press ";wht$;"RETURN";ylw$;" to go to Display Menu:" 
20060 gosub 19000: rem return key routine 
20070 print 

20080 goto 400: rem display menu routine 
20070 print 

20080 goto 400: rem display menu routine 

The "return key routine" is the same one used in the "mail. menu" program. The 
"return to menu routine" closes the file so that the user can decide differently on 
every part of the program. Line 20080 returns the user to the menu. 

With this last change, we have concluded the modification of the "mail.adder2" 
program. The program in the computer's memory is the "skeleton" of the soon-to- 
be "mail.reader2". You may want to save this portion of the eventual complete 
program out to either the diskette or tape. Line 100 should be changed to reflect 
the correct name of this "program." 

"^shell 

The "shell" program should be 12 blocks long, leaving 579 blocks free. There are 
two reasons for saving an incomplete program. First, you might want to save an 
incomplete program just to be certain that you do not lose many hours of work in 
case the power should go out. Second, an incomplete program can serve as a "shell" 
for other programs. This shell might be used to help create the correction program 
for example. 

Now, we need to fill in the "shell" with the remaining structure of the 
"mail.reader2" program. We will begin with a menu of the options available. Type 
carefully and add the following lines: 

400 rem **--menu routine--** 

410 tb = 5:rem tab value-5 spaces rt. 

420 print home$:rem cir/home 

430 print wht$ 

440 print tab(tb + 3) 

450 print rvs$; 
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460 prin 
470 prin 
480 prin 
490 prin 
500 prin 
510 prin 
520 prin 
530 pri 
540 pri 
550 pri 
560 pri 
570 prin 
580 prin 
590 prin 
600 prin 
610 pri 
620 pri 
630 pri 
640 



in' 



ipu 



650 in 
660 num 
670 



"DISPLAY MENU" 

ylw$ 

print tab(tb) 

"1. INFORMATION--ORIG. ORDER" 

print tab(tb) 

"2. NAMES ONLY" 

print tab(tb) 

"3. INFORMATION-NO PHONE" 

print tab(tb) 

"4. SPECIFIC NAME" 

print tab(tb) 

"5. SPECIFIC NAME--NO PHONE" 
print tab(tb) 

"6. INFORMATION-RANGE" 
print tab(tb) 

"7. INFORMATION-ALPHABETICAL" 
print tab(tb) 

"8. RETURN TO PROGRAM MENU" 
print tab(tb) 

"Which Number Please ";nu$ 
bar = val(nu$) 



If you have been following along with our programs, these lines of code should 
now be easy to understand. We are doing the same sequence of programming we 
did when we created the "mail. menu" program. We format the menu display and 
request a number. The next series of program lines is familiar also. 



680 if number 
690 if number 
700 if number 
710 if number 
720 if number 
730 if number 
740 if number 
750 if number 
760 : 



= 1 then 1000 
= 2 then 2000 
= 3 then 3000 
= 4 then 4000 
= 5 then 5000 
= 6 then 6000 
= 7 then 7000 
= 8 then 8000 



Now, you have the basic structure for the rest of the program. All that is necessary 
is to fill in the code for each routine. But what happens if the user enters a character 
other than a number between 1 and 8? This possibility is the reason for the incorrect 
choice message routine that follows. If the number does not contain a value between 
1 and 8, the computer will not branch to any of the major routines. Immediately 
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after the computer has checked the value of the number against the constant value 
of 8 (line 750), the computer will proceed to the next instruction. Type the following: 

770 rem *-incorrect choice message-* 
780 print:print tab(tb) 
790 print rvs$; "Incorrect Choice!" 
800 print:print tab(tb) 

810 print "Press ";wht$;"RETURN";ylw$;" to continue:"; 

820 gosub 19000:rem return l<ey routine 

830 goto 400: rem menu--checic again 

840 : 

850 : 

860 : 

This small routine displays a message whenever the user enters a number that is 
not between 1 and 8. After the Incorrect Choice message (line 790) has been 
displayed, the user is told to press the RETURN key (line 810) in order to again 
be given the opportunity to enter a valid number (line 830). Once the user has 
entered a valid number, control passes to the desired routine. 

NOTE: The routines get progressively more difficult to follow, and it really is 
not the intent of this book to teach the concepts behind routines such as sorting 
and searching. But it is within its scope to present examples of such routines so 
that readers can make use of these routines in their own file-manipulation programs. 

■ Original Order Routine 

1000 rem **--original order routine--** 

1010 gosub 10000:rem display routine 

1020 rem clr/home cursor down routine 

1030 print home$:cd = 3:gosub 9000 

1040 for i = 1 to tk 

1050 if tlines$(i) = "*" then 1080 

1060 if tlines$(i) = "\" then print#file,bnk$:goto 1080 

1070 print#file,tlines$(i) 

1 080 next i 

1090 goto 20000:rem menu return routine 
1100 : 
1110 : 
1120 : 

If you look closely, this routine is very similar to the original "mail. reader 1" display 
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routine (lines 1000 to 1040). All this routine does is display all the information 
lines in the file in the order they were entered. But with lines 1050 and 1060, we 
have eliminated the display of the separator symbols and "!". There are two 
additional lines that are new. Lines 1010 and 1090 direct the computer to separate 
routines used by each of the main routines. Line 1010, as indicated by the rem 
statement, will be the code that asks if the user wants the information displayed 
on a printer or on the screen. This instruction uses a GOSUB statement which 
directs the computer to go to the instructions that begin at line 10000 and follow 
those instructions until the computer encounters a RETURN statement. At that 
point, the computer returns to the instruction following the GOSUB instruction. 
Line 1090 is the instruction that directs the computer to the routine that returns the 
user to the DISPLAY MENU when the user is ready. 

■ Name Only Routine 

2000 rem **-name only routine-** 
2010 gosub 10000:rem display routine 
2020 print home$:rem cir/home 
2030 for i = 1 to tk - 1 
2040 if tlines$(i) = tlines$(1) then 2080 
2050 if tlines$(i) = "!" then 2080 
2060 goto 2150 
2070 : 

2080 rem *-line up numbers-* 

2090 if i < 10 then print tab(3) 

2100 if i > 9 and i < 100 then print tab(2) 

2110 if i > 99 then print tab(1) 

2120 : 

2130 iftlines$(i) = tlines$(1) then print#file,i;tlines$(1 ) 
2140 iftlines$(i) = "!"then print#file,i + 1;tlines$(i + 1) 
2150 next i 

2160 goto 20000: rem menu return routine 
2170 : 
2180 : 
2190 : 

This routine should not be very difficult to understand. We want to print only those 
lines that follow the "!" separator. We print those lines because those are the lines 
that should contain the names of the individuals. We need the instruction at 2040 
because there was no separator for the first name. We use tk — 1 because we do 
not want to get to the last "!" separator since there is no name to follow it yet. The 
instructions in lines 2080 to 2110 provide for the alignment of the number that 
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precedes the name. This number is the number for the first line of information in 
each set of information-lines. 

■ No Phone Routine 

3000 rem **-no phone routine--** 
3010 gosub 10000:rem display routine 
3020 print home$:rem cir/home 
3030 for 1 = 1 to tk 

3040 if tlines$(i) = "*" then 1 = 1 + 1:goto 3070 
3050 if tlines$(i) = "!" then print#file,bnk$:goto 3070 
3060 print#file,tlines$(i) 
3070 next i 

3080 goto 20000:rem menu return routine 
3090 : 
3100 : 
3110 : 

This routine should look completely familiar. It is practically the same routine we 
used to print a label in "mail.adder2" (lines 1260 to 1300 in that program). The 
effect is the same here also. We can print a mailing label for every person in our 
file with this routine. Because just about every type of printer handles things 
differently, you will probably need to add some code to this routine to get the labels 
spaced properly. One method of spacing would be to find out the number of lines 
on the label and between labels and then adjust the routine to always space just 
exactly that number of lines regardless of the number of lines to be printed. That 
method would always start the printer at the top of the label and not center the 
material on the label, but it is probably the easiest method to develop. 

■ Search Routine 

4000 rem **-search routine--** 

4010 gosub 10000:rem display routine 

4020 print home$:rem cIr/home 

4030 print "Type the word ";wht$;"END";ylw$;" when finished." 

4040 poke 19,32:rem disable input ? 

4050 print:input "Name to find: ";find$ 

4060 if find$ = "END" or find$ = "end" then 4240 

4070 print 

4080 for i = 1 to tk 

4090 iftlines$(i) = find$ then 41 10 

4100 goto 4210 

4110 if tlines$(i) = "*" then 4210 
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4120 if tlines$(i) = "!" then 4210 
4130 print#file,bnk$ 
4140 print#file,tlines$(i) 
4150 print#file,tlines$(i + 1) 
4160 print#file,tlines$(i + 2) 

4170 if tlines$(i + 3) <> "*" then print#file,tlines$(i + 3) 

4180 if tlines${i + 4) = "*" then 4200 

4190 print#file,tlines$(i + 4):goto4210 

4200 print#file,tlines$(i + 5) 

4210 next i 

4220 print 

4230 goto 4030: rem repeat until done 
4240 goto 20000: rem menu return routine 
4250 : 
4260 : 
4270 : 

The routines begin to get more difficult now. To this point, we have not really 
made any assumptions about the number of lines of information in each set. But 
with this routine, we make the assumption that there are a maximum of five lines 
containing information in any set. If you want a greater maximum, then additional 
code will have to be added to print out those other lines. The additional code would 
follow the pattern of 4170 to 4200. We begin in the same way with 4000, 4010, 
and 4020 (our routine name, gosub display routine, and clear screen lines). Line 
4040 gives instructions to the user to type the word "END" when the user is finished 
looking for a specific name. Line 4050 requests the name from the user and stores 
that name in the string variable "find$". Line 4060 checks the contents of "find$" 
to see if it contains the word "END" or "end". If it does, the computer is directed 
to go to line 4240, which further directs the computer to go to the "menu return 
routine". One might logically ask why 4060 does not instruct the computer to go 
directly to the "menu return routine". The reason lies in the necessity of structuring 
the various routines in the same way so that any programmer can locate the exit 
point of the routine easily. There are a number of GOTO statements in this routine, 
but all of them direct the computer (and any programmer) to various lines within 
this routine. In following the logic of this routine (and all the other routines also), 
one never needs to look outside the routine, except for the display routine and exit 
routine, which are common to all other routines. The idea is to keep the flow of 
logic in one place as much as possible. You enter at the top of the routine and exit 
at the base of the routine. This is the case for all the routines. 

Lines 4080 to 4210 are the heart of this routine. They are also the boundaries 
of the loop used to find and print the information associated with a specific name. 
Line 4090 checks the contents of tlines$(i) to see if it equals the contents of find$. 
If it does, the computer is instructed to jump over the next instruction. If it does 
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not, the next instruction is executed. Line 4100 is reached only if the contents of 
tlines$(i) and findS do not match, and 4110 is reached only if they do match. Lines 
4110 and 4120 check for the separators and skip them when they are found. At 
this point in the routine, we have found the name we are looking for and now want 
to print out the information associated with this name. We assume that the first 
three lines will not contain a separator and, therefore, will automatically print those 
lines. Lines 4140, 4150, and 4160 accomplish this task. Lines 4170 through 4200 
are lines of code that require some thought. If the fourth information-line does not 
contain the separator "*", then we want to print this line also (4170); but if it does 
contain the separator, we do not want the fourth information-line printed. Rather, 
we know that the fifth information-line contains something to be printed (the line 
following the "*" will have the phone number if there is a phone number). Line 
4190 prints the fifth information-line. Line 4180 first checks the fifth information- 
line to see if it contains the asterisk separator. If it does contain the separator, then 
we need to jump over 4190 (the instruction that prints that fifth information-line) 
and, instead, print the sixth information-line (4200). Go back through the expla- 
nation if you are not certain you understand. We use this same routine, combined 
with the previous one, for our next routine. 

■ Search Routine, No Phone 

5000 rem **~search routine/no phone--** 
5010 gosub 10000:rem display routine 
5020 print home$:rem clr/home 

5030 print "Type the word ";wht$;"END";ylw$;" when finished." 

5040 poke 19,32:rem disable input ? 

5050 print:input "Name to find? ";find$ 

5060 if find$ = "END" or find$ = "end" then 5250 

5070 print 

5080 for i = 1 to tk 

5090 iftlines$(i) = find$ then 5110 

5100 goto 5220:rem next i 

5110 if tlines$(i) = "*" then \ = \ + 1:goto 5220 
5120 if tlines$(i) = "\" then print#file,bnk$:goto 5220 
5130 print#file,bnk$ 
5140 print#file,tlines$(i) 
5150 print#file,tlines$(i + 1) 
5160 print#file,tlines$(i + 2) 

5170 if tlines$(i + 2) <> "*" then print#file,tlines$(i + 3) 
5180 if tlines$(i + 3) = "*" then i = i 1 :goto 5220 
5190 if tlines$(i 4) = "*" then i = i + 1:goto 5220 
5200 print#file,tlines$(i + 4):goto 5220 
5210 print#file,tlines$(i + 5) 
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5220 next i 
5230 print 

5240 goto 5030: rem repeat until done 
5250 goto 20000:rem menu return routine 
5260 : 
5270 : 
5280 : 

I included this routine for a number of reasons. First, it is a very useful routine 
because, with a printer, one can print out a specific mailing label. Second, it shows 
how two routines can be combined into a third routine. This latter point is the most 
important reason. Very few programs will do everything anyone could ever want 
of them, but if a person understands these separate routines, combining two or more 
to form others should be possible. Quite a number of combinations are possible 
and might be useful to some people. 

As you can see, this routine is exactly the same as the previous one down to 
the instruction at 5110. The only difference is that when we find the "*" separator, 
we add one to i, thus skipping the phone number. Lines 5130 through 5170 are 
the same instructions as 4120 through 4170. The instructions at 5180 and 5190 are 
the only different instructions. Both of those instructions are simply checking to 
see which information-line contains the separator symbol and then advancing the 
counter by one. The end of the routine is the same as the end of the previous 
routine. 

With the routines at 4000 and 5000, you have the ability to search for a specific 
name and display that name, either with the phone number or without the phone 
number. But both of these routines require that you know and type in the exact 
spelling of the name, including spaces. That presents a reason for our next routine, 
the range routine. With this routine, you will only need to know the starting and 
ending information-line numbers to be able to display the information you want. 
You can obtain those numbers from the "names only routine". I will present the 
range routine only, but you might want to combine this routine with the "names 
only routine" and possibly some others also. 

■ Range Routine 

6000 rem **--range routine-** 

6010 gosub 10000:rem display routine 

6020 rem cir/home cursor down routine 

6030 print home$:cd = 3:gosub 9000 

6040 input "Type beginning line number please: ";bg 

6050 print:print 

6060 if bg < 1 then print "Number too small! ":goto 6040 
6070 input "Type ending line number please: ";ed 
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6080 print 

6090 if ed > tk then print "Number too large!":goto 6070 
6100 for i = bg to ed 

6110 if tiines$(i) = "*" then i = i + 1:goto 6140 
6120 if tlines$(i) = "!" then print#file,bnl<$:goto 6140 
6130 print#file,tiines$(i) 
6140 next i 

6150 goto 20000:rem menu return routine 
6160 : 
6170 : 
6180 : 

Line 6040 asics for the beginning information-line number. Remember that you can 
check the numbers first by using the "names only routine" or by actually including 
that routine at the beginning of this one. Line 6060 checks the number typed to 
see if it is less than 1, the number of the first information-line. If it is too small, 
a message is printed and the user is again asked for a beginning number. Line 6070 
requests the ending information-line number and goes through the same checking 
process, this time for a number larger than the maximum number of information- 
lines. Then comes our loop (6100 to 6140). I have included the code for printing 
the information without the phone num.ber (6110), thus providing a routine that can 
print out a selected range of mailing labels. 

I have tried to show how you can take various routines and combine them in 
just about any way you might want. With the addition of each new routine, the 
number of possible combinations of routines increases so much that no single 
programmer could include all possibilities within one program, but, with a minimum 
of understanding, everyone can create combinations of routines to meet their needs. 

■ Alphabetical Order Routine 

We come now to the most complex of our routines. I will not even attempt to 
explain the logic involved in all parts of this alphabetizing routine since complete 
books have been written on various sorting techniques. The sort method I am 
including is sometimes called the Quicksort technique. There are a number of other 
public domain sorting routines that I could have used, such as the bubble sort or 
the Shell-Metzner sort, but I decided on the Qucksort because it is very efficient 
and somewhat less publicized. I modified the sort to enable it to work with string 
variables. Otherwise, the sort subroutine is a standard routine that can be used in 
a number of different ways to order lists composed of numbers or letters. For 
example, if you want to display the information in the "adrs-data" file in zip code 
order, you first need to access the zip codes and then use the Quicksort subroutine 
to arrange the zip codes and their associated information-lines in either ascending 
or descending order. The creation of such a routine would require that you com- 
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pletely understand another feature of this routine: the flexibility possible with string 
variables and the manner of utilizing that flexibility. Again, I will not try to fully 
explain the logic or programming power behind the BASIC statements of LEFT$, 
MID$, or RIGHTS. I strongly encourage you to learn as much as possible about 
these BASIC statements and how they can be used to take string variables apart 
and put them back together in just about any way you want. 

This alphabetizing routine will be presented in two sections. The first section 
makes use of this string variable flexibility to: access the last section of characters 
in that first information-line; reverse the order of that information-line, placing the 
last section of characters first; (i.e., David Miller becomes Miller, David); and then 
combine all other information-lines associated with this first line into one long string 
variable, ad$(i). The second section alphabetizes the list now stored in the string 
variable nd$(j). 

7000 rem **~alphabetical order routine-** 

7005 rem cir/home cursor down routine 

7010 print home$:cd = 5:gosub 9000 

7020 print rvs$; "WORKING-PLEASE DON'T TOUCH!!" 

7030 print ylw$ 

7040 : 

7050 : 

7060 rem *-get first info.-line-* 

7070 for i = 1 to tk - 1 

7080 if tlines$(i) = tlines$(1) then 7130 

7090 if tlines$(i) = "!" tlien 1 = 1 + ligoto 7130 

7100 goto 7240: rem next i 

7110 : 

7120 : 

7130 rem reverse order 
7140 char = len(tlines$(i)) 

7150 for va = 1 to char:if asc(mid$(tlines$(i),va,1)) = 32 then vz = va 
7160 next va 

7170 if vz = or vz > char then ad$(i) = tlines$(i):goto 7190 
7180ad$(i) = mid$(tlines$(i),vz + 1,char - vz) + ", " + 
!eft$(tlines$(i),vz) 

7190ad$(i) = ad$(i) + "**" + tlines$(i + 1) + "**" + tlines$(i + 2) 
7200 if tlines$(i + 3) <> "*" then ad$(i) = ad$(i) + "**" + tlinesSd 
+ 3) 

7210 if tlines$(i -f 4) = "*" then 7230 

7220 ad$(i) = ad$(i) + + tlines$(i + 4):goto 7240 

7230 ad$(i) = ad$(i) + "**" + tlines$(i + 5) 

7240 next i 

7250 : 
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7260 : 

7270 rem renumber for sort 

7280 j = 1 

7290 for i + 1 to tk 

7300 if len(ad$(i)) > then nd$(j) = ad$(i):j = j + 1 
7310 next i 
7320 n = j - 1 
7330 : 
7340 : 

As you can see, the routines get more complex. If you do not understand the left$, 
mid$, and right$ statements, the best thing to do is to get a clear definition of them 
from a book devoted to teaching BASIC and then practice their uses. Essentially, 
they perform the functions for which they are named. The left$ statement will 
retrieve a specified number of characters beginning at the left side of a string variable. 
Left$(a$,4) gets the first four characters of the string variable a$; i.e., if a$ equals 
"COMMODORE-64", left${a$,4) is "COMM". The right$ statement retrieves a 
specified number of characters from the right-most character of a string variable. 
Right$(b$,3) gets the last three characters in the string variable b$; i.e., if b$ equals 
"COMMODORE-64", right$(b$,3) is "-64". The mid$ statement retrieves a spec- 
ified number of characters from a specified position within a string variable. 
Mid$(c$,2,6) gets the next six characters beginning at the second character in the 
string variable c$; i.e. if c$ equals "COMMODORE-64", mid$(c$,2,6) is "OM- 
MODO". 

Therefore, the instructions in 7060 to 7100 identify the first information-line 
in each set of data. Lines 71 30 through 7240 reverse the order of the first information- 
line and then combine all the other information-lines associated with it. Finally, 
7270 to 7320 are the instructions that renumber the sets of information in such a 
way that the sort subroutine can function. 

7350 rem ***-quicksort~*** 
7360 sa = 1 
7370 print:print 

7380 print rvs$;"STILL WORKING-PLEASE DON'T TOUCH!!" 

7390 u(1) = 1 

7400 r(1) = n 

7410 ua = u(sa) 

7420 ra = r(sa) 

7430 sa = sa - 1 

7440 uz = ua 

7450 rz = ra 

7460 x$ = nd$(int((ua + ra)/2)) 
7470 c = c 1 
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7480 if nd$(uz) = x$ or ncl$(uz) > x$ then 7510 
7490 uz = uz + 1 
7500 goto 7470 
7510 c = ca 

7520 if x$ = nd$(rz) or x$ > nd$(rz) then 7550 

7530 rz = rz - 1 

7540 goto 7510 

7550 if uz > rz then 7620 

7560 s = s + 1 

7570 t$ = nd$(uz) 

7580 nd$(uz) = nd$(rz) 

7590 nd$(rz) = t$ 

7600 uz = uz + 1 

7610 rz = rz - 1 

7620 if uz = rz or uz < rz then 7470 
7630 if uz = ra or uz > ra then 7670 
7640 sa = sa + 1 
7650 u(sa) = uz 
7660 r(sa) = ra 
7670 ra = rz 

7680 if ua < ra then 7440 
7690 if sa > then 7410 
7700 rem sort completed! 
7710 : 
7720 : 

Now, you have access to a sorting method. The only code necessary outside this 
subroutine to transfer it to another program is to set: 

1. The dim of u() and r() to the number of things to be sorted. 

2. The numeric variable n = to the number of things to be sorted. 

If you have a different sort method that you like or understand better and want to 
include it instead, the code for your sort should replace the code between lines 
7350 and 7700. 

We still need to display the results after sorting. I am going to present the code 
to display the results in an elementary way. This display routine may not work 
exactly right if your original file is not in the following format: 

Information-line # 1 : First Last (name) 
Information-line # 2: Address 
Information-line # 3: City State Zip 
Information-line # 4: * 



DISPLAYING SEQUENTIAL FILES 105 



Information-line # 5; Phone number 
Information-line # 6: ! 

The new, alphabetized display should have the following format: 
Information-line # 1: Last, First (name) 
Information-line # 2: Address 
Information-line # 3: City State Zip 
Information-line # 4: Phone number 

I will leave to those of you who want to or are able to use the flexibility in string 
variables to format the display in any way you desire. 

7730 rem **~display"** 

7740 gosub 10000:rem display routine 

7745 rem cir/home cursor down routine 

7750 print home$:cd = 3:gosub 9000 

7760 for i = 1 to n 

7770 vz = 1 :q = 1 

7780 char = len(nd$(i)) 

7790 for va = 1 to char 

7800 if mid$(nd$(i),va,2) = then 7820 

7810 goto 7850 

7820 zi$(q) = mid$(nd$(i),vz,va - vz) 
7830 vz = va -I- 2 
7840 q = q + 1 
7850 next va 
7860 : 

7870 zi$(q) = mid$(nd$(i),vz,char - (vz - 1)) 
7880 : 

7890 for e = 1 to q 
7900 print#file,zi$(e) 
7910 next e 
7920 : 

7930 print#file,bnk$ 
7940 next 1 

7950 goto 20000: rem menu return routine 
7960 : 
7970 : 
7980 : 

We now have an opportunity to create a sequential access file in a way that 
may be more powerful than in our mailing list system. The usefulness of the new 
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file-creation method depends on the programmer's knowledge of and willingness 
to work with string variables (i.e., Ieft$, mid$, rightS, len, strS, val, and dim). All 
the associated information with tlines$(l), that is, the address, city, state, zip code, 
and phone number, are stored in the string variable nd$(l). Everything for the next 
name is stored in nd$(2), and so on. If you want to locate the zip code, all you 
need to do is use the midS function to determine where in the string the zip code 
is located. You could use the same mid$ function with our present file setup, but 
it might be more difficult to precisely locate the zip code. (For instance, some 
people might put the zip code on a separate line, while others would put it on the 
same line as the city and state. If everything is combined into one string variable, 
it might be easier to locate for all possible situations.) I have used a lot of conditional 
statements because there are many possibilities, and the correct choice often depends 
upon a number of factors: the programmer's experience and preference, the value 
of the file being established, the necessity of backup, the amount of use the file 
will get, and so forth. The code necessary to establish a separate file for our now- 
alphabetized information should be easy to develop. 

Have you saved this new "mail.reader2" program? If not, be certain that the 
program is still in memory and type the following: 

<-mail.reader2 

By using a different name from our original display program, the number 2 instead 
of the number 1, we have not written over that original program. Now, the list of 
files should show: 



" 


form. 10-20-84 


" 84 2a 


1 


"hello" 


prg 


2 


"example" 


prg 


1 


"address file" 


seq 


12 


"mail. create" 


prg 


1 


"adrs-ptr" 


seq 


1 


"adrs-data" 


seq 


4 


"maii.readerl" 


prg 


15 


"mail.adderl" 


prg 


19 


"mail.adder2" 


prg 


17 


"mail. menu" 


prg 


12 


"shell" 


prg 


37 


"mail.reader2" 


prg 



542 blocks free 

The number of free blocks may be different, depending on the number of blocks 
used in the "adrs-data" sequential file. If you have already added a few names and 
addresses, then the number of blocks in that file will be larger than one and the 
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number of free blocks will be less than 542. In the next chapter, we will examine 
ways of correcting, changing, or deleting information from our file. 



QUESTIONS 

1. True or False: Commoclore-64 BASIC allows you to run a program from 
within another program. 

2. What Commodore BASIC word allows you to horizontally position text on 
the screen? 

3. Which BASIC word is used to instruct the computer to go to a subroutine? 

4. Which BASIC word is used to instruct the computer to return from a sub- 
routine? 

5. True or False: In programming, it is a good idea to have just one main 
entrance and exit point in every routine. 

6. Name three public domain sorting routines. 

7. What are the three main BASIC words that provide a great deal of power in 
working with strings? 

8. What BASIC word retrieves a specified number of characters from a specified 
position within a string variable? 

9. Name four other BASIC words that can be used in some way with string 
variables. 

10. True or False: When you save a file with the same name as a file already 
on the disk, the first file is replaced by the second file. 
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ANSWERS 



1. False. Possible only after loading the DOS Wedge 

2. TAB . Must be used in a print statement 

3. GOSUB 

4. RETURN 

5. True 

6. Bubble, Quicksort, Shell-Metzner 

7. LEFTS, RIGHTS, MID$ 

8. MID$ 

9. LEN, STR$, VAL, DIM 

10. False. Unless the replace character (@) is used 
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■ Program for MAIL.MENU 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 



-mail . menu- 



rem ** — initialization — 

home$ = c hr $ ( 1 4 7 ) : r em clr/home 

:cd$ = chr$( 17):rera cursor down 

:cu$ = chr $ ( 1 4 5 ) : r em cursor up 

:cl$ = chr$( 1 57) : rem cursor left 

:cr$ = chr$( 29):rern cursor right 

blk$ = chr$( 144) : rem black 

ylw$ = chr $ ( 1 58 ) : r em yellow 

wht$ = chr$( 5):rem white 

rvs$ = chr$( 18): rem reverse video 

poke 53280, 14:rem border = It. blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 6:rem set bkgrd to blue 



rem — menu — 

tb = 5:rem tab value — 5 spaces rt. 

print home$:rem clr/horae 

print wht$ 

print tab(tb + 3) 

print rvs$; 

print "MAIL PROGRAM MENU" 
print 

print ylw$ 
print tab(tb) 

print "1. FILE CREATION PROGRAM" 
print:print tab(tb) 
print "2. FILE ADDITION PROGRAM" 
print:print tab(tb) 
print "3. FILE DISPLAY PROGRAM" 
print tab(tb) 

"4. FILE CORRECTION PROGRAM" 



print: 
print 
print:print tab(tb) 
print "5. LIST OF FILES" 
print:print tab(tb) 
print "6. END" 
print: print tab(tb) 
poke 19,32:rem disable input 
input "Which Program Number? 
number = val(nu$) 



7 

";nu$ 



if 


number 


= 1 


then 


1000 


if 


number 


= 2 


then 


2000 


if 


number 


= 3 


then 


3000 


if 


number 


= 4 


then 


4000 


if 


number 


= 5 


then 


5000 


if 


number 


= 6 


then 


6000 
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830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1 130 

1 140 

1 150 

1160 

1 170 

1 180 

1 190 

1200 

1210 

1220 

1230 

1240 

1250 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 

4030 

4040 

4050 



rem 
print 
print 
print 
print 
print 
print 



-incorrect choice message-* 
print 
tab(tb) 

r V s$ ; " I nc or rec t Choice!" 



tab( tb ) 

"Press ";wht$;"RETURN";ylw$;" to continue:' 
gosub 19000:reni return key routine 
goto 500:rem raenu--check again 



rem - 

print 

cd = 

gosub 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

gosub 

if ye 

print 

print 

input 

if ye 

goto 

f ile$ 

gosub 

'"mai 



*--file creation prog.--** 

home$:rera clr/home 
2 : rem 2 lines down 

9000:rem cursor down routine 

tab( 15) 

rvs$ ; 

"WARNING ! " 
: print 

"If the 'adrs-data' file already exists" 
"do NOT run this program!" 

"Do you want the file creation program?" 

8000:rem y/n input routine 
s$ = "n" then 500:rem menu 
: print 

"Are you sure? Type " ; wh t $ ; " YES " ; y 1 w$ ; " if you are:" 

yes$ 

s$ = "YES" or yes$ = "yes" then 1210 
1000: rem check again 
= "MAIL. CREATE" 

7100:rem new program routine after question 
1 . create" : rem load & run 



rem ** — file addition prog. — ** 
file$ = "MAIL . ADDER2" 
gosub 7000:rem new program routine 
' "ma i 1 . ad de r 2 " : r em load & run 



rem **--file display prog.--** 
file$ = "MAIL.READER2" 
gosub 7000:rem new program routine 
" "mail . reader2" : rem load & run 



rem ** — file correction prog. — ** 
file$ = "MAIL. CORRECTION" 
gosub 7000:rem new program routine 
" "ma i 1 . cor r ec t i o n" : rem load & run 
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5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
6000 
6010 
60-20 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
7000 
7010 
7020 
7030 
7040 



7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
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rem **--list of files routine--** 

print horae$:rem clr/home 

@"$":rem we d ge/ d iske t t e directory 

print cu$ ; chr $ ( 13) : rem 13 = rtn 

print "Are you ready to return to the menu?" 

print 

gosub 8000:rem y/n input routine 
if yes$ = "y" then 500:rem menu 
goto 5000:rem check again 



rem ** — end routine — ** 

poke 19,0:rem restore input prompt 

print home$:rem clr/home 

cd = 5:rem 5 lines down 

gosuh 9000:rera cursor down routine 

print tab(tb) 

print rvs$; 

print "That's all for this session!" 
print : print : print 
print tab(tb + 5) 
print rvs$; 

print "See you next time." 
print ylw$ 

cd = lOrrem 10 lines down 

gosub 9000:rem cursor down routine 

end 



program you 



want?' 



rem ** — new program routine — ** 
print home$:rem clr/home 
cd = 2:rem 2 lines down 
gosub 9000:rem cursor down routine 
print '"You have selected the ";file$:print:print 
"program. " 
print:print:print 
print "Is this the 
print 

gosub 8000:rem y/n 
if yes$ = "n" then 
print home$:rem clr/home 
cd = 5:rem 5 lines down 
gosub 9000:rem cursor down 
print tab(tb) 
print rvs$; 
print "Please wait!" 
print:print: print 
print tab(tb + 5) 
print rvs$; 

print "I'm loading...." 

print : print : print 
print tab(tb + 10) 
print rvs$; 
print file$ 

poke 19,0:rem restore input prompt 



input routine 
500 : rem menu 



routine 
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7250 

7260 

7270 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

19000 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19080 

19090 

19100 

19110 



return 



rem ** — y/n input routine — ** 
print "Type a " ; wh t $ ; " Y" ; y lw$ ; " 
poke 19,32:rein disable input ? 

input yes$ 



ir ";wht$;"N";ylw$; 



or y e s $ 
or yes$ 



print 
if yGs$ = 
if y e s $ = 
print 
print rvs 
print 

goto 8000:rem check again 



fi Y ti 
"N" 



then yes$ 
then yes$ 



y : re t ur n 
'n":return 



;;"Incorrect Choice !"; ylw5 



rem --cursor down routine- 

for i = 1 to cd 

print cd$; 

next i 

return 



rem **--return key routine--** 
poke 198,0:rera clr kbrd buffer 
for i = 631 to 640 
poke i,0:rera no value 
next i 

X = peek ( 1 9 7 ) : rem store key press 

if X = 1 then 19080:rem 1 = rtn 

goto 19050:if not 1 go back 

poke 198,l:rem allow for cursor 

poke 631,0:rein clr kbrd 

nu$ = "":rem clr string variable 

return 



ready . 
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Program for SHELL 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 

265 : 

266 : 

2 70 rem * * — user message--** 

271 print home$:rem clr/home 

272 cd = 5:rem 5 lines down 

273 gosub 9000:reni cursoi down routine 

274 print ylw$;"ONE MOMENT PLEASE!" 

275 : 

276 : 

277 rem 

278 : 

279 rem 



280 
281 
282 
283 
284 
285 
286 
287 
288 
289 



rem * 




--shell--** 


1* 






rem * 


-1^ - 


-initializa 


tion 






home$ 




chr$( 147) : 


rem 


c 1 r /home 


: : cd$ 




chr$( 17) : 


rem 


cursor 


down 


: : cu$ 




chr$( U5) : 


rem 


cursor 


up 


: :cl$ 




chr$( 157) : 


rem 


cursor 


left 


: : cr$ 




chr$( 29): 


rem 


cursor 


right 


: blk$ 




chr$( 144) : 


rem 


black 




: ylw$ 




chr$( 1 58) : 


rem 


y e 1 low 




: wht$ 




chr$( 5): 


rem 


white 




: r vs$ 




chr$( 18): 


r e in 


r e V e r s 


e video 


: bnk$ 




chr$( 10): 


rem 


blank 


line 


poke 


53280, 14: rem 


b o r d 


er = 1 


t . blue 


poke 


53272, 23:rem 


u p p e 


r / 1 w e 


r c a s e 


poke 


53281, 2:rem 


set 


bkgrd 


to red 



-file input routine- 



pointer file-* 
open 2 ,8,2,"0:adrs-ptr,seq,read" 
input#2,rec 
close 2 

rem *-data file-* 

dim tlines$(rec) ,nd$(rec) ,u(rec) ,r(rec) ,ad$(rec) ,zi$(rec) 
open 3,8,3,"0:adrs-data,seq,read" 
for i = 1 to rec 



# of lines 



input#3, tlines$( i) 
next i 

290 close 3 

291 : 

292 tk = rec:rem total 1 

293 : 

294 : 

8000 rem **--return to program menu--** 
8010 poke 19,0:rem restore input prompt 
8020 rem clr/home cursor down routine 
8030 print home$:cd = 5:gosub 9000 
8040 print tab(tb) 
8050 print rvs$; 

8060 print "LOADING THE MAIL MENU PROGRAM" 
8070 ""mail. menu" 
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8080 : 
8090 : 

9000 rem --cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

90/tO return 

90 5 : 

9060 : 

10000 rem ** --display routine--** 

10010 print home$:rera clr/horae 

10020 cd = 3:reni 3 lines down 

10030 gosub 9000: rem cursor down routine 

10040 print "Would you like a paper print out?" 

10050 print 

10080 gosub 18000: rem y/n input routine 
10090 if yes$ = "y" then 10120:rem prnt 
10100 if yes$ = "n" then 10300:rem scrn 
10110 : 

10120 print home$:rera clr/home 

10130 cd 3:ren 3 lines down 

10140 gosub 9000:rem cursor down routine 

10150 print "Please make sure the printer" 

10160 print 

10170 print "is on and ready to use." 
10180 print 

10190 print "Are you ready to begin printing?" 
10200 print 

10210 gosub 18000:rem y/n input routine 
10220 if yes$ = "n" then 10000 
10230 : 

102A0 rem * -printer display-* 
10250 file = 4 
10260 dvic = 4 
10270 cmnd = 7 

10280 goto 10500:rem open instruction 
10290 : 

10300 rem * -screen display-* 
10310 file = 3 
10320 dvic = 3 
10330 cmnd = 1 

10340 goto 10500:rem open instruction 
10350 : 
10360 : 

10500 rem *-open instruction-* 
10510 open f i le , d v i c , cmnd 
10520 return 
10530 : 
10540 : 
10550 : 

18000 rem **--y/n input routine--** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wh t $ ; "N " ; y 1 w$ ; " :"; 
18020 poke 19,32:rem disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
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18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r vs$ ; " I ncor rec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:reni begin again 
18110 : 
18120 : 
18130 : 

19000 rem **-return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rera no value 
19040 next i 

19050 X = peek ( 1 9 7 ) : r em store key press 

19060 if X = 1 then 19080:rem 1 = rtn 

19070 goto 19050:rer!i if not 1 go back 

19080 poke 19,0:rem restore input prompt 

19090 poke 198,l:rem allow for cursor 

19100 poke 631,0:rem clr kbrd 

19110 nu$ = "":rem clr string variable 

19120 return 

19130 : 

19140 : 

19150 : 

20000 rem * * - - ni e n u return routine--** 
20010 print#file 
20020 close file 
20030 print 

20040 poke 19,32:rem disable input ? 

20050 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to go to Display 
Menu : " 

20060 gosub 19000:rem return key routine 
20070 print 

20080 goto 400:rem display menu routine 
ready . 
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Program for MAIL.READER2 



100 

no 

1 20 
1 3 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
265 
266 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
400 
410 
420 
430 
440 
450 
460 



rem 

home$ 
:cd$ 
: c u$ 
: cl$ 
:cr$ 
blk$ 
ylw$ 
wht$ 
rvs$ 
bnk$ 



--mail . reader2- 



-inittallzation- 



chr $ 
chr$ 
chr$ 
chr $ 
c hr $ 
chr$ 
chr$ 
chr $ 
chr$ 
chr$ 



147):rem clr/home 

17) :rera cursor down 
145):reDi cursor up 

157) :rem cursor left 
29):rem cursor right 

144):rein black 

158) : rem yel low 
5 ) : rem white 

18) :rera reverse video 
10):rem blank line 



14 


rem 


border = 


It 


.blue 


23 


rem 


u p pe r / 1 () w 


G r 


case 


2 


rem 


set bkgrd 


t 


o red 



rem * 


* - - u s e 


r message--** 


print 


home$ 


:rem clr/home 


cd = 


5 : rem 


5 1 ines down 


gosub 


9000 : 


rem cursor down routine 


print 


ylw$; 


"ONE MOMENT PLEASE!" 



rem ** — file input routine--** 

rem * -pointer file-* 

open 2,8,2,"0:adrs-ptr,seq,read" 

input#2,rec 

close 2 

rem *-data file-* 

dim tline,s$(rec),nd$(rec),u(rec),r(rec),ad$(rec),zi$(rec) 

open 3,8,3,"0:adrs-data,seq,read" 

for i = 1 to rec 

input#3,tlines$(i) 

next i 

close 3 



tk 



rec:rem total k 



# of lines 



rem — m e n u - 
tb = 5:rera tab value--5 spaces rt, 

print home$:rem clr/home 

print wht$ 

print tab(tb + 3) 

print rvs$; 

print "DISPLAY MENU" 
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470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

2000 

2010 

2020 



print 

print : 

print 

print : 

print 

print: 

print 

print : 

print 

print: 

print 

print : 

print 

print : 

print 

print: 

print 

print: 

input 

number 



ylw$ 

print tab(tb) 

"1. INFORMATION--ORIG. ORDER" 
print tab(tb) 
"2. NAMES ONLY" 
print tab(tb) 

"3. INFORMATION--NO PHONE" 

print tab(tb) 

"4. SPECIFIC NAME" 

print tab(tb) 

"5. SPECIFIC NAME--NO PHONE" 
print tab(tb) 
"6. INFORMATION--RANGE" 
print tab(tb) 

"7. INFORMATION--ALPHABETICAL" 
print tab(tb) 

"8. RETURN TO PROGRAM MENU" 
print tab(tb) 



"Which Number 
val ( nu$ ) 



Please 



n umber 
number 
number 
number 
number 
n umber 
i f number 
if number 



1000 



1 then 

2 then 2000 

3 then 3000 

4 then 4000 

5 then 5000 

6 then 6000 

7 then 7000 

8 then 8000 



to continue: 



rem * -incorrect choice message-* 
print:print tab(tb) 
print rvs$; "Incorrect Choice'." 
print:print tab(tb) 

print "Press "; wht $;" RETURN" ; ylw$ ; ' 
gosub 19000:rem return key routine 
goto 400:rem menu — check again 



rem **--original order routine--** 
gosub lOOOOirera display routine 
rem clr/horae cursor down routine 
print home$:cd = 3:gosub 9000 
for i = 1 to tk 

if tlines$(i) = "*" then 1080 

if tlines$(i) = "!" then pr int#f ile , bnk$ : goto 1080 
print#file,tlines$(i ) 
next i 

goto 20000:rem menu return routine 



rem **--name only routine--** 
gosub 10000:rem display routine 
print home$:rem clr/home 
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2030 
2040 
2030 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 



for i = 1 to tk - 1 

if tlines$(i) = tlines$(l) then 2080 
if tlines$(i) = "!" then 2080 
goto 2150 

rem *-line up numbers-* 

if i < 10 then print tab(3) 

if i > 9 and i < 100 then print tab(2) 

if i > 99 then print tab(l) 

if tlines$(i) = tlines$(l) then pr i n t # f i le , i ; 1 1 i nes $ ( 1 ) 
if tlines$(i) = "!" then print#file,i + l;tlines$(i + 1) 
next i 

goto 20000:rem menu return routine 



rem * * - - n o phone routine--** 
gosub 10000:rem display routine 
print home$:rem clr/home 
for i = 1 to tk 

if tlines$(i) = "*" then i = i + l:goto 3070 

if tlines$(i) = "!" then pr in t # f i le , bnk$ : go t o 3070 

print#file,tlines$(i) 

next i 

goto 20000:rem menu return routine 



rem ** — search routine — ** 
gosub 10000:rem display routine 
print home$:rera clr/horae 

print "Type the word " ; wh t $ ; " END" ; y lw$ ; " when finished." 

poke 19,32:rem disable input ? 

print:input "Name to find; ";find$ 

if find$ = "END" or find$ = "end" then 4240 

print 

for i = 1 to tk 

if tlines$(i) = find$ then 4110 
goto 4210 

if tlines$(i) = "*" then 4210 
if tlines$(i) = "!" then 4210 



print#file,bnk$ 






print#file,tlines$(i 


) 




print#file,tlines$(i 


+ 


1) 


print#file,tlines$(i 


+ 


2) 


if tlines$(i + 3) <> 




" then pr int#f ile , t lines$ ( i 


if tlines$(i + 4) = 




then 4200 


print#file,tlines$(i 


+ 


4) : goto 4210 


print#file,tlines$(i 


+ 


5) 



next i 
print 

goto 4030:rem repeat until done 
goto 20000:rem menu return routine 
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4270 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5.12 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
7000 
7005 
7010 
7020 
7030 
7040 
7050 



rem — search routine/no phone — 
gosub 10000:rem display routine 
print home$:rem clr/home 

print "Type the word " ; wh t $ ; "END" ; y 1 w$ ; " when finished." 

poke 19,32:rem disable input ? 

print:input "Name to find: ";find$ 

if find$ = "END" or find$ = "end" then 5250 

print 

for i = 1 to tk 

if tlines$(i) = find$ then 5110 
goto 5220:rera next i 



if 


tlines$( 


i) = "*" 


then i = i + l:goto 5220 


if 


tlines$ ( 


i ) = " ! " 


then print#f ile , bnk$ : goto 5220 


pri 


nt#f ile , 


bnk$ 




pri 


nt#f ile , 


tlines$(i 


) 


pri 


nt#f ile , 


t 1 ines$ ( i 


+ 1) 


pri 


nt#f ile , 


tlines$( i 


+ 2) 


if 


tlines$ ( 


i + 3) <> 


"*" then pr int#f ile , t lines$ ( i 


if 


tlines$( 


i + 3) = 


"*" then i = i + l:goto 5220 


if 


tlines$( 


i + 4) = 


"*" then i = i + Irgoto 5220 


pri 


nt#f ile , 


1 1 ines$ ( i 


+ 4):goto 5220 


pri 


nt#f ile , 


tlines$( i 


+ 5) 



next i 
print 

goto 5030:rem repeat until done 
goto 20000:reni menu return routine 



rem **--range routine — ** 
gosub 10000:rem display routine 
rem clr/home cursor down routine 
print home$:cd = 3:gosub 9000 

input "Type beginning line number please: ";bg 
print : print 

if bg < 1 then print "Number too sraall!":goto 6040 
input "Type ending line nuber please: ";ed 

print 

if ed, > tk then print "Number too large!":goto 6070 
for i = bg to ed 

if tlines$(i) = "*" then i = i + l:goto 6140 

if tlines$(i) = "!" then pr i n t #f i 1 e , bnk$ : go t o 6140 

print#fi]e,tlines$(i) 

next i 

goto 20000:rem menu return routine 



rem -a 1 ph a be t ica 1 order--** 

rem clr/home cursor down routine 

print home$:cd = 5:gosub 9000 

print rvs$ ; "WORKING--PLEASE DON'T TOUCH!!" 

print ylw$ 
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7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 

7160 
7170 
7180 

7190 

7200 

7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 



rem *-get first info. -line-* 
for i = 1 to tk - 1 

if tlines$(i) = tlines$(l) then 7130 

if tlines$(i) = "!" then i = i + l:goto 7130 

goto 7240:rem next i 



rem reverse order 
char = len ( t 1 ines$ ( i ) ) 

for va = 1 to char:if asc ( mi d$ ( t 1 i nes$ ( i ) , va , 1 ) ) = 32 
then vz = va 
next va 

if vz = or vz > char then ad$(i) = 1 1 i ne s $ ( i ) : go to 7190 
ad$(i) = raid$(tlines$(i) , vz + l.char - vz) + ", " + 
lef t$( tlines$( i ) , vz) 

ad$(i) = ad$(i) + + tlines$(i + 1) + + 

tlines$(i + 2) 

if tlines$(i + 3) <> "*" then ad$(i) = ad$(i) + "**" + 
tlines$(i + 3) 

if tlines$(i + 4) = "*" then 7230 

ad$(i) = ad$(i) + + tlines$(i + 4):goto 7240 

ad$(i) = ad$(i) + + tlines$(i + 5) 

next i 



rem renumber for sort 
j = 1 

for i = 1 to tk 

if len(ad$(i)) > then nd$(j) 

next i 

n = j - 1 



ad$( i) : j = j + 1 



rem *** — quicksort--*** 
sa = 1 
print : print 

print rvs$;"STILL WORKING— PLEASE DON'T TOUCH!!" 

u(l) = 1 

r(l) = n 

ua = u ( sa ) 

r a = r ( sa ) 

sa = sa - 1 

uz = ua 

r z = r a 

x$ = nd$(int((ua + ra)/2)) 
c = c + 1 

if nd$(uz) = x$ or nd$(uz) > x$ then 7510 
uz = uz + 1 
goto 7470 
c = ca 

if x$ = nd$(rz) or x$ > nd$(rz) then 7550 
r z = r z - 1 
goto 7510 

if uz > rz then 7620 
s = s + 1 
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7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7745 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
9000 
9010 



t$ = nd$(uz) 

nd$( uz ) = nd$ ( rz ) 

nd$(rz) = t$ 

uz = uz + 1 

r z = r z - 1 

if uz = rz or uz < rz then 7470 
if uz = ra or uz > ra then 7670 
sa = sa + 1 
u ( s a ) = u z 
r(sa) = ra 
r a = r /. 

if ua < ra then 7440 
if sa > then 7410 
rem sort completed! 



rem ** --display--** 
gosub 10000: rem display routine 
rem clr/home cursor down routine 
print horae$:cd = 3:gosub 9000 
for i = 1 to n 

V z = 1 : q = 1 

char = len(nd$(i)) 
for va = 1 to char 

if mid$(nd$(i) ,va,2) = then 7820 

goto 78 5 

zi$(q) = mi d$ ( nd $ ( i ) , V z , va - vz) 

V z = V a + 2 
q = q + 1 
next va 

zi$(q) = mid $( nd$ ( i ), vz , char - (vz - 1)) 

for e = 1 to q 
print#file,zi$(e) 
next e 

print#f ile , bnk$ 
next i 

goto 20000:rem menu return routine 



rem **--return to program menu--** 
poke 19,0:rem restore input prompt 
rem clr/home cursor down routine 
print horae$:cd = 5:gosub 9000 
print tab(tb) 
print rvs$; 

print "LOADING THE MAIL MENU PROGRAM" 
' "mail , menu" 



rem ** — cursor down routine — ** 
for i = 1 to cd 
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9020 

9030 

9040 

9050 

9060 

10000 

10010 

10020 

10030 

10040 

10050 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10500 

10510 

10520 

10530 

10540 

10550 

1 8000 

18010 

iao20 

180 30 
18040 
18050 
18060 
18070 
18080 



print cd$; 
next i 
return 



rem ** — display routine--** 

print horae$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rem cursor down routine 

print "Would you like a paper print out?" 

print 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 10120:rem prnt 
if yes$ = "n" then 10300:rera scrn 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 900 0:rera cursor down routine 

print "Please make sure the printer" 

print 

print "is on and ready to use." 
print 

print "Are you ready to begin printing?" 
print 

gosub 18000:rem y/n input routine 
if yes$ = "n" then 10000 

rem * -printer display-* 
file = 4 
d V ic = 4 
cmnd = 7 

goto 10500;rera open instruction 

rem *-screen display-* 
file = 3 
d V ic = 3 
cmnd = 1 

goto 10500:rem open instruction 



rem *-open instruction-* 
open f i le , d vie , cmnd 
return 



rem **--y/n input routine — ** 

print "Type a " ; wht$ ; "Y" ; y lw$ ; " or " ; wht$ ; "N" ; ylw$ ; " :" 
poke 19,32:rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
print 

print rvs$; "Incorrect Choice! ";ylw$ 
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18090 


pr i n 


t 








18100 


goto 


18000: rem 


begin a g 


a i n 




18110 












18120 












18130 












19000 


rem 


* * — return 


key rout 


ine — 




19010 


poke 


198 , : rem 


c 1 r k br d 


buff 


er 


19020 


for 


i = 631 to 


640 






19030 


poke 


l,0:rem no value 






19040 


next 


i 








19050 


X = 


peek( 197) : 


rem store 


key 


press 


19060 


if X 


= 1 then 


19080: rem 


1 = 


rtn 


19070 


goto 


19050: if 


not 1 go 


back 




19080 


poke 


19,0: rem 


restore i 


n pu t 


prompt 


19090 


poke 


198, 1 : rem 


a 1 low f o 


r cur 


so r 



19100 poke 631,0:rem clr kbrd 

19110 nu$ = "":rem clr string variable 

19120 return 

19130 : 

19140 : 

19150 : 

20000 rem **--menu return routine--** 
20010 print#file 
20020 close file 
20030 print 

20040 poke 19,32:rem disable input ? 

20050 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to go to the Display 
Menu : " ; 

20060 gosub 19000:rem return key routine 
20070 print 

20080 goto 400:rem display menu routine 
read y . 
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correcting 
sequential 
files 



If you saved the "shell" program, you can load this file and use it as the basis for 
our "mail. correction" program. A few lines will need to be changed to reflect needs 
within this specific program, and the display routine may not be needed, but making 
use of the "shell" is much easier than retyping instruction-lines used by other 
programs. 

The first change is with line 100, which should be changed to reflect the proper 
name for this program. Type: 

100 rem ***--mail. correction-*** 

Then change the following lines to: 

240 poke 53280, 5: rem border = green 
260 poke 53281,1 1:rem set bkgrd = greyl 
285 dim tlines$(rec) 
20010 rem if printer used:print#file 
20020 rem if printer used:close file 
20030 print:print 

20050 print "Press ";wht$;"RETURN";ylw$;" to go to the 
Correct. Menu:"; 
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The "return to program menu" routine, lines 8000 to 8100, needs to be moved to 
lines 4000 to 4100 and then deleted from 8000 to 8100. The easiest way to do this 
is to: 

list 8000-8100 

Use the cursor up key (SHIFT and up/down arrow CRSR key) to go up to the 8 
in 8000. Press the key with the number four (4) on it, changing the line number 
from 8000 to 4000. Then press the RETURN key. The cursor will drop to the next 
line number, 8010. You should repeat the procedure for each of the listed lines. 
When you have changed the line-numbers, the instructions still exist at lines 8000 
to 8100. The last step is to delete these instruction-lines by typing the line-number 
and immediately pressing the RETURN key: 

8000 {RETURN} 
8010 {RETURN} 
8020 {RETURN} 



8080 {RETURN} 
8090 {RETURN} 
8100 {RETURN} 

The display routine is not necessary in this "mail. correction" program, but you can 
leave it as part of this program in case you ever want to print out information that 
has been changed or deleted. If you do not want to leave the display routine in the 
program, you will need to follow the procedure just described and delete the 
instructions in lines 10000 to 10550. 

If you did not save the "shell" program, you will need to retype all the instruc- 
tions included in it for the "mail. correction" program (see the listing at the end of 
Chapter 6). All that remains is to fill in the "shell" with instructions specific to our 
present program needs. Once again we need a menu, so our routine beginning at 
line 400 will be much the same also. 

400 rem**~menu routine--** 

410 tb = 5: rem tab value-5 sps.rt. 

420 print home$:rem cir/honne 

430 print wht$ 

440 print tab(tb + 3) 

450 print rvs$; 

460 print "CORRECTION MENU" 
470 print ylw$ 
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480 print: print tab(tb) 

490 print "1. CHANGE OR CORRECT INrO." 

500 print:print tab(tb) 

510 print "2. DELETE INFORMATION" 

520 print:print tab(tb) 

530 print "3. WRITE REVISED FILE" 

540 print:print tab(tb) 

550 print "4. RETURN TO PROGRAM MENU" 

560 printrprint tab(tb) 

570 input "Which Number Please" ;nu$ 

580 number = val(nu$) 

590 : 

600 if number = 1 then 1000 
610 if number = 2 then 2000 
620 if number = 3 then 3000 
630 if number = 4 then 4000 
640 : 

650 gosub 7000 .rem incorrect choice 
660 goto 400: rem menu routine 
670: 
680: 

By now, these statements should be familiar enough that no further explanation 
need be given. We are going to simply display a menu of a number of choices on 
the screen. If the user has not typed a valid number, control is first transferred to 
the "incorrect choice routine" at line 7000 and then returned to the instruction (line 
570), which again asks for a number. (The incorrect choice routine, 7000-7090, 
is listed at the end of the chapter within the mail. correction program. This routine 
does not contain any new code.) 

The correction and deletion routines presented next are only one method out 
of many possible methods for accomplishing the same task. Some may object to 
rewriting the entire file for a single correction, but, for now, the method we will 
use is to bring the entire file into memory, make our necessary corrections or 
deletions, and then write the file back out to disk again. 



CORRECT/ON ROUTINE 

1000 rem**--correction routine--** 

1010 print home$:rem cir/home 

1020 cd = 3:rem 3 lines down 

1030 gosub 9000:rem cursor down routine 

1040 print tab(tb) 
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1050 print "Type a ";wht$;"0";ylw$;" when finished." 

1060 print:print tab(tb) 

1070 poke 19,32:rem disable input ? 

1080 input "Display which line? ";nb$ 

1090 if nb$ = "0" then 20000:rem menu 

1100 nb = val(nb$) 

1110 rem incorrect choice/ask again 

1120 if nb > tk then gosub 7000:goto 1000 

1130 cd = 4:gosub 9000:rem crsr down 4 

1140 print tab(tb - 1) 

1150 print nb;" ";tlines$(nb) 

1160 print:print tab(tb) 

1170 print "Is this correct? " 

1180 print:print tab(tb) 

1190 gosub 18000:rem y/n input routine 

1200 if yes$ = "y" then 1000 

1210 print:print tab(tb) 

1220 print "Type in the correct information." 

1230 print:print tab(tb - 1) 

1240 print nb;" ";:input cinfo$ 

1250 print:tlines$(nb) = cinfo$ 

1260 rem cir/home-cursor down routine 

1270 print home$:cd = 3:gosub 9000 

1280 print:print tab(tb - 1) 

1290 print nb;" ";tlines${nb) 

1300 print 

1310 goto 1160:rem ask again 
1320 : 
1330 : 

We ask for the line number the user believes to contain incorrect information. The 
line of information is displayed. If it is not correct, the individual is given an 
opportunity to type in the correct information. The amount of new information or 
corrected information is not limited except by the normal character string limitation. 
This feature is one big advantage over other correction methods, which may require 
that the corrected information be exactly the same number of characters as the 
original information. Finally, the corrected information is displayed and the correct 
information question is repeated. Line 1200 checks for a positive response to the 
question about correct information. If the information is correct, the user is taken 
back to the original request concerning the line number to be displayed. Line 1090 
checks for a "0", which indicates that the user wishes to return to the menu. Line 
1250 is the instruction that actually exchanges the corrected information for the old 
information. You will notice that nothing is written to disk at this time. This may 
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cause problems for some individuals. Under this system, it is possible to make a 
number of changes before the file is rewritten to the disk. It is also possible, 
therefore, to forget to write the corrected file back to disk. Such a system may be 
impractical in certain situations, for example, when a somewhat forgetful person 
is making the changes. But, for our purposes, we want to make all corrections and 
deletions before rewriting the file. 



DELETION ROUTINE 

The deletion routine is more complicated than the correction routine. 

2000 rem **--delete routine-** 

2010 print homes$:rem cir/home 

2020 cd = 3:gosub 9000:rem crsr down 3 

2030 print tab(tb) 

2040 print "Type a ";wht$;"0";ylw$;" when finished." 

2050 print:print tab(tb) 

2060 poke 19,32:rem disable input ? 

2070 input "Delete which line? ";nb$ 

2080 if nb$ = "0" then 20000:rem menu 

2090 nb = val(nb$) 

2100 rem incorrect choice/ask again 

2110 if nb > tk then gosub 7000:goto 2000 

2120 cd = 4:gosub 9000:rem crsr down 4 

2130 print tab(tb - 1) 

2140 print nb;" ";tlines$(nb) 

2150 print:print;print tab(tb) 

2160 print "Are you sure?" 

2170 print: print tab(tb) 

2180 print "Type ";wht$;"YES";ylw$;" if you are sure!"; 
2190 input yes$ 

2200 if yes$ = "YES" or yes$ = "yes" then 2240 
2210 goto 2000: rem begin again 
2220 : 
2230 : 

2240 rem *-display deleted info.-* 
2250 j = nb 

2260 if tlines$(j) = "!" then 2290 
2270 j = j + 1 :goto 2260 
2280 : 

2290 rem *-format numbers & display-* 
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2300 rem clr/home-cursor down routine 

2310 print home$:cd = 3:gosub 9000 

2320 for i = nb to j 

2330 if i < 10 then print tab(3) 

2340 if i > 9 and i < 100 then print tab(2) 

2350 if i > 99 then print tab(1) 

2360 print i;" ";tlines$(i) 

2370 tlines$(i) = "DELETED" :d = d + 1 

2380 next i 

2390 print 

2400 print "DELETING THIS INFORMATION" 
2410 : 
2420 : 

2430 rem *-renumber w/out del.info.-* 

2440 q = 1 

2450 for i = 1 to tk 

2460 if tlines$(i) = "DELETED" then 2490 
2470 tlines$(q) = tlines$(i) 
2480 q = q + 1 
2490 next i 
2500 : 

2510 rem subtract # of lines deleted for new total 
2520 tk = tk - d 
2530 d = 0:j = 
2540 print 

2550 goto 20000:rem menu 
2560 : 
2570 : 
2580 : 

There are other ways of doing the same thing we did in this routine. Some of the 
other ways might be shorter, but this way is understandable. Several things need 
to be done in this deletion routine. First, the information to be deleted must be 
identified, displayed, and then deleted (lines 2000 to 2400). Second, the information 
following the deleted material must be renumbered (instruction-lines 2430 to 2490) 
so that there are no empty information-lines; otherwise, an ERROR will occur when 
these information-lines are encountered. Finally, the number of deleted information- 
lines must be subtracted (line 2520) from the original total number of lines. 

Down to line 2160, there is nothing new. It is essentially the same beginning 
as the correction routine. At 2250, we set a counter (j) equal to the line number of 
the name to be deleted. Next, we increase the counter by one until we have found 
the information-line for the end of the information associated with the individual 
to be deleted (i.e., the separator symbol "!"). We know which information-lines 
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to delete: the lines beginning with nb and going through j , so now we can use a 
loop (2320-2380) to delete our information. Wc use another loop (2450-2490) to 
do the resequencing of the remaining information. We use two additional counters: 
to keep track of the new information line-numbers and d to keep track of the number 
of deleted lines. The q is set to 1 for the beginning of the file, but it could be set 
to nb, the start of the deleted material. Line 2460 is the key to the resequencing. 
If tlines$(i) equals the word "DELETED", then the counter q is not increased while 
the counter i is increased. Remember that q is keeping track of the new line numbers 
while i is the old hne number. Line 2470 resequences the tlines$ string array. Line 
2520 subtracts the number of deleted lines from the original number of lines (tk). 
Line 2550 is necessary in case more information is to be deleted during this session. 

3000 rem **--file output routine--** 
3010 : 

3020 rem *-user message-* 

3030 rem clr/home~cursor down routine 

3040 print home$:cd = 3:gosub 9000 

3050 print rvs$; 

3060 print tab(tb) 

3070 print "UPDATING FILES." 

3080 print:print:print tab(tb + 10) 

3090 print rvs$;: print "PLEASE WAIT!" 

3100 : 

3110 rem *-delete/rename backup-* 

3120 open 3,8,3,"@0:adrs-backup,seq,write" 

3130 close 3 

3140 (a:"scratch:adrs-backup" 

3150 @" rename: ad rs-backup = adrs-data" 

3160 : 

3170 rem *-pointer file-* 

3180 open 2,8,2,"@0:adrs-ptr,seq,write" 

3190 print#2,tk 

3200 close 2 

3210 : 

3220 rem *-data file-* 

3230 open 3,8,3/'0:adrs-data,seq,write" 

3240 for i = 1 to tk 

3250 print#3,tlines$(i) 

3260 next i 

3270 close 3 

3280 : 

3290 rem *-user message/menu-* 
3300 rem clr/home~cursor down routine 
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3310 print home$:cd = 5:gosub 9000 

3320 print tab(tb) 

3330 print rvs$; 

3340 print "ALL FINISHED" 

3350 cd = lO.gosub 9000 

3360 goto 20000: rem menu routine 

3370 : 

3380 : 

3390 : 

There is something different with this file routine. Where did "adrs-backup" come 
from? The DOS command "open" will create a file by that name if the file does 
not already exist. Therefore, if the file "adrs-backup" does not already exist, the 
command open "adrs-backup" will create a file by that name. Next, we delete that 
file since it must either be an empty file or a now unnecessary backup copy. (The 
first time this program is used there will not be an "adrs-backup" file.) Line 3150 
renames the file "adrs-data" (which now contains our uncorrected information) so 
that it becomes "adrs-backup". Finally, we open a new "adrs-data" file and write 
out our corrected information to it (lines 3220-3270). Line 3360 returns to the 
menu. At this point, if you have not already done so, you should save this program 
to the diskette that contains all the other Mailing List System programs. 

<— mail.correction 



Typing @$ now should show: 



' 


'form. 10-20-84 


" 84 2a 


1 


"hello" 


prg 


2 


"example" 


prg 


1 


"address file" 


seq 


12 


"mail. create" 


prg 


1 


"adrs-ptr" 


seq 


1 


"adrs-data" 


seq 


4 


"mail.readerl " 


prg 


15 


"mail.adderl" 


prg 


19 


"mail.adder2" 


prg 


17 


"mail. menu" 


prg 


12 


"shell" 


prg 


37 


"mail.reader2" 


prg 


27 


"mail.correction" 


prg 



515 blocks free 

It is not necessary to make changes in the "mail. menu" program in order to include 
this "mail.correction" program. Remember that additional code was added in an- 
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ticipation of this program. The Mailing List System should now be complete. (A 
complete list of the final Mailing List System programs, in proper order, is provided 
at the end of this chapter.) 

This general method of correcting or deleting information has the added benefit 
of providing us with a backup copy of our precorrccted "adrs-data" file. The se- 
quence of opening and deleting a backup file, renaming the uncorrected file as the 
new backup, and writing out the corrected information to a new file under the 
original file name is a very useful routine. If you have two disk drives, you can 
put the backup in one drive and the new master in the other drive and have the 
computer switch between the two drives. The more drives one has, the greater the 
flexibility in manipulating files in this manner. 

Even without two drives, the "adrs-data" file and the "adrs-backup" file can 
be put on two different diskettes. Some method of making the computer pause after 
line 3150 would be necessary in order to allow the user to swap diskettes. Two 
possibilities would be (1) a loop of a certain duration, or (2) an input statement 
informing the user that it is time to switch diskettes. 

Although the Mailing List System is complete, the system is by no means a 
commercial data-base program. Many additional routines, programs, and/or features 
can be added to accomplish specific needs. For example, it would be a good idea 
to have a program that would copy the "adrs-data" file onto a different diskette. A 
program that allowed the user to expand the information concerning a particular 
person would be handy in certain circumstances (i.e., increase from six lines of 
information to seven or eight lines). 

Perhaps the most useful additional program would be one that translated the 
"adrs-data" file into a format that a word processor could use to merge with a form 
letter to produce personalized form letters. This task is very easy to do since the 
format of the "adrs-data" file fits with the format many word processors use for 
just such address files. The advantage of using an existing file for the personalized 
form letter is the obvious lack of duplication of effort. In other words, if the names 
and addresses already exist, you do not need to retype them again in the format 
needed by the word processor. 

The advantage of maintaining the names and addresses in a file external to the 
word-processing system are many. First, you are not limited to a single word 
processor if you happen to find a better one later. Second, the flexibility and 
versatility of an external file are far greater than the flexibility or versatility of a 
file created within the limitations of a specific word processor. Third, external files 
are more easily sorted and displayed in a variety of ways. 

To conclude this chapter, I will present the structure for a program that trans- 
forms the "adrs-data" file into the format required for the mail merge portion of 
Commodore's Easy Script program. The process of using information created by 
one application program with another application program is often referred to as 
integration of data. 

The first task is to read in the information from the "adrs-data" file. Second, 
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format the information so that all sets of information have the same number of 
information-lines and that the separator symbols (* and !) are not part of the new 
file information. Third, access the first or last name and include it as the last line 
of each set of information. This first or last name is used for the greeting portion 
of the form letter. Fourth, if you require other variable information included in 
each letter, the program should allow for the addifion of such variable information 
to each set of information. Finally, write the restructured file out to the diskette. 
The information is now in two separate files. It still exists in the "adrs-data" file, 
and it also now exists in a file that can be used by Easy Script's mail merge portion 
for the creation of personalized form letters. 

In the next chapter, we will take a look at some more techniques for accessing 
sequential data files. 



QUESTIONS 

1. True or False: Under the correction method presented in this chapter, cor- 
rected information is immediately written to the disk. 

2. What happens to the original "adrs.data" file once information in it has been 
changed? 

3. What is the BASIC command used to remove unwanted files? 

4. What is the BASIC command used to change the name of files? 

5. True or False: Two disk drives are necessary in order to back up a data file. 
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ANSWERS 



1. False 

2. It becomes "adrs. backup". 

3. Scratch 

4. Rename 

5. False 
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■ Program for MAIL CORRECT/ON 



100 
1 10 
120 
130 

1 AO 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
2A0 

2 50 
260 
265 
266 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
AOO 
AlO 
420 
430 
440 
4 30 
460 



-mail .correction- 



rem - 


-initialization 




1 orae $ = 


chr$( 147) 




c 1 r /home 


: :cd$ = 


chr$( 17) 


rem 


cursor down 


: : cu$ = 


chr$( 145) 


rem 


cursor up 


: :cl$ = 


chr$( 157) 


rem 


cursor left 


: : cr$ = 


chr$( 29) 


rem 


cursor right 


:bll<$ = 


chr$( 144) 


rem 


black 


:ylw$ = 


chr$( 158) 


rem 


yellow 


:wht$ = 


chr$( 5) 


rem 


white 


:rvs$ = 


chr$( 18) 


rem 


reverse video 


:bnk$ = 


chr$( 10) 


rem 


blank line 


poke 5 328 0, 5:rem 


bord 


er = green 


poke 53272 , 23 : rem 


u p p e 


r / 1 w e r case 


poke 53281 ,11: rem 


set 


bkgrd = greyl 



rem — user message — 

print home$:rem clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem cursor down routine 

print ylw$;"ONE MOMENT PLEASE!" 



rem * * — file input routine — * * 

rem "''-pointer file-* 

open 2,8, 2, "0:adrs-ptr ,seq,read" 

input#2, rec 

close 2 

rem *-data file-* 
dim tlines$(rec) 

open 3,8,3,"0:adrs-data,seq,read" 
for i = 1 to rec 
input#3, tlines$(i) 
next i 
close 3 

tk = rec:rem total k = # of lines 



rem **--raenu routine--''"'' 

tb = 5:rem tab value--5 sps.rt, 

print home$:rem clr/home 

print w h t $ 

print tab(tb + 3) 

print rvs$; 

print "CORRECTION MENU" 
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470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1 120 

1130 

1140 

1150 

1 160 

1170 

1 180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 



print 

print : 

print 

print: 

print 

print: 

print 

print: 

print 

print: 

input 

number 



ylw$ 

print tab(tb) 

"1. CHANGE OR CORRECT INFO." 
print tab(tb) 
"2. DELETE INFORMATION" 
print tab(tb) 
"3. WRITE REVISED FILE" 
print tab(tb) 



"4. RETURN TO 
print tab(tb) 
"Which Number 
= val(nu$) 



PROGRAM MENU" 
Please" ; nu$ 



when finished." 



if number = 1 then 1000 

if number = 2 then 2000 

if number = 3 then 3000 

if number = 4 then 4000 

gosub 7000:rem incorrect choice 
goto 400:rem menu routine 



rem '-'■'--correction routine- - 
print home$:rem clr/home 
cd = 3:reiTi 3 lines down 
gosub 9000:rem cursor down routine 
print tab(tb) 

print "Type a " ; wht$ ; "0" ; ylw$ 
print:print tab(tb) 
poke 19,32:rem disable input ? 
input "Display which line? ";nb$ 
if nb$ = "0" then 20000:rem menu 
nb = val(nb$) 

rem incorrect choice/ask again 

if nb > tk then gosub 7000:goto 1000 

cd = 4:gosub 9000:rera crsr down 4 

print tab( tb - 1 ) 

print nb;" " ; t 1 ines$ ( n b ) 

print:print tab(tb) 

print "Is this correct? " 

print:print tab(tb) 

gosub 18000:rera y/n input routine 
if yes$ = "y" then 1000 
print:print tab(tb) 

print "Type in the correct information:" 

print:print tab(tb - 1) 

print nb;" ";:input cinfo$ 

print: tlines$(nb) = cinfo$ 

rem c 1 r / h ome --c ur sor down routine 

print home$:cd = 3;gosub 9000 

print:print tab(tb - 1) 

print nb;" " ; 1 1 i nes $ ( n b ) 

print 

goto 1160:rem ask again 
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13A0 
2000 
2010 
2020 
2030 
20A0 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
21A0 
2150 
2160 
21 70 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
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rem ** --delete routine — ** 
print home$:rem clr/home 
cd = 3:gosub 9000:rem crsr down 3 
print tab(tb) 

print "Type a " ; wh t $ ; " 0" ; y 1 w$ ; " 
print:print tab(tb) 
poke 19,32:rem disable input ? 
input "Delete which line? ";nb$ 
if nb$ = "0" then 20000:rem menu 
nb = val(nb$) 

rem incorrect cholcc/ask again 
if nb > tk then go sub 7000:goto 
cd = 4:gosub 9000:rem crsr down 
print tab(tb - 1) 
print nb;" ";tlines$(nb) 
pr i n t : p r i n t : p r i n t tab(tb) 
print "Are you sure?" 
print:print tab(tb) 
print "Type " ; wht$ ; " YES" ; y lw$ ; " 
input yes$ 

if yes$ = "YES" or yes$ = "yes" 
goto 2000: rem begin again 



when finished 



2000 
4 



if 



you 
then 2240 



are su 



rem * -display deleted info.-* 

j = n b 

if t l i nesSC ]■ ) = " ! " then 2290 
J = i + l:goto 2260 

rem '''-format numbers & display-* 

rem clr/horae — cursor down routine 

print horae$:cd = 3: gosub 9000 

for i = nb to j 

if i < 10 then print tab(3) 

if i > 9 and i < 100 then print tab(2) 

if i > 99 then print tab(l) 

print i;" ";tlines$(i) 

tlines$(i) = "DELETED":d = d + 1 

next i 

print 

print "DELETING THIS INFORMATION" 



rem * -renumber w/out del. info.-* 
q = 1 

for i = 1 to tk 

if tlines$(i) = "DELETED" then 2490 
tlines$(q) = tlines$(i) 
q = q + 1 
next i 

rem subtract # of lines deleted for new total 
tk = tk - d 
d = 0:J = 
print 
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2550 goto 20000:rem menu 
2560 : 
2570 : 

2 580 : 

3 000 rem -'"''--file output routine--** 
3010 : 

3020 rem *-user message-* 

3030 rem c 1 r / home--c ur sor down routine 

3040 print home$:cd = 3:gosub 9000 

3050 print rvs$; 

3060 print tab(tb) 

3070 print "UPDATING FILES." 

3080 print : print : print tab(tb + 10) 

3090 print rvs$; -.print "PLEASE WAIT!" 

3100 : 

3110 rem * -delete/rename backup-* 

3120 open 3 , 8 , 3 , " @0 : ad r s- backup , seq , wr i t e" 

3130 close 3 

3140 ^"scratch: adrs-backup" 

3150 @"rename:adrs-backup=adrs-data" 

3160 : 

3170 rem * -pointer file-* 

3180 open 2 , 8 , 2 , "@0 : adrs-ptr , seq , write" 

3190 print#2,tk 

3200 close 2 

3210 : 

3220 rem *-data file-* 

3230 open 3,8,3,"0:adrs-data,seq,write" 

3240 for i = 1 to tk 

3250 printi?3,tlines$(i) 

3260 next i 

3270 close 3 

3280 : 

3290 rem *-user message/menu-* 

3300 rem c 1 r /home--curso r down routine 

3310 print home$:cd = 5:gosub 9000 

3320 print tab(tb) 

3330 print rvs$; 

3340 print "ALL FINISHED" 

3350 cd = 10:gosub 9000 

3 360 goto 20000: rem menu routine 

3370 : 

3380 : 

3390 : 

4000 rem ** — return to program menu--** 
4010 poke 19,0:rem restore input prompt 
4020 rem c 1 r /home--c u r sor down routine 
4030 print horae$:cd = 5:gosub 9000 
4040 print tab(tb) 
4050 print rvs$; 

4060 print "LOADING THE MAIL MENU PROGRAM" 
4070 ""mail. menu" 
4080 : 
4090 : 

7000 rem **-incorrect choice message-** 
7010 print : print : print tab(tb) 
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7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

9000 

9010 

9020 

9030 

90A0 

9050 

9060 

10000 

10010 

10020 

10030 

lOOAO 

10050 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10500 

10510 

10520 

10530 

10540 

10550 



print rvs$;" Incorrect Choice!" 
print:print tab(tb) 

print "Press "; wht $; "RETURN" ; y lw$ ; ' 
gosub 19000:rem return key routine 
return 



to cont inue : 



rem — cursor down routine- 
for i = 1 to cd 
print cd$; 

n e X t i 
return 



rem * * - - d i s p 1 a y routine--** 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rem cursor down routine 

print "Would you like a paper print out?' 

print 

gosub 1 8 : r e ni y / n input routine 
if yes$ = "y" then 10120:rem prnt 
if yes$ = "n" then 10300:rem scrn 



h o m e $ : r e m c 1 r / 1 1 o ni c 

:rem 3 lines down 

9000:rem cursor down rouline 

"Please make sure the printer" 

"is on and ready to use." 

"Are you ready to begin printing?' 

18000:rem y/n input routine 
$ = "n" then 10000 



4 
4 

cmnd = 7 

goto 10500:rem open instruction 

rem * -screen display-* 
file = 3 
d vie = 3 
cmnd = 1 

goto 10500:rem open instruction 



rem '''-open instruction- 
open f i le , d V ic , cmn d 
return 



pr i n 


t 


cd = 


3 


g s u 


b 


p r i n 


t 


p r i n 


t 


p r i n 


t 


p r i n 


t 


p r i n 


t 


pr i n 


t 


gosu 


b 


if y 


e s 


rem 




file 




d vie 
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18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19 130 
19140 
19150 
20000 
20010 
20020 
20030 
20040 
20050 

20060 
20070 
20080 



rem 

print 

poke 

input 

print 

if ye 

if ye 

print 

print 

print 

goto 



*--y/n input routine--** 

"Type a " ; wh t $ ; " Y " ; y 1 w$ ; " or " ; wh t $ ; " N " ; y 1 \ 
19,32:rem disable input ? 

yes$ 

s$ = "y" or yes$ 

s$ = "n" or yes$ = "N" then yes3 

rvs$; "Incorrect Choice !";ylw$ 
18000:rera begin again 



rem ** --return key routine--** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 
next i 

X = peek( 1 97 ) : rem store key press 

if X = 1 then 19080:rem 1 = rtn. 

goto 19050:if not 1 go back 

poke 19,0:rera restore input prompt 

poke 198,l:rem allow for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rera clr string variable 

return 



-menu return routine- - 
.f printer u s ed : print # f i le 
used:close file 



rem 
rem 1 1 
rem i 1 
print ; 
poke 
print 

Co r r e ( 
g o s u b 
print 

goto 400:rem display menu routine 



.f printer 
. : print 
19 , 32 : rem 
"Press "; 

? c t . M e n u : " ; 
19000: r era 



disable input ? 
wht$ ; "RETURN" ; ylw$ ; ' 

return key routine 



to go to the 



ready, 
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" 


form. 10-20-84 " 84 


2a 


1 


"hello" 


prg 


2 


"example" 


prg 


1 


"address file" 


seq 


1 2 


"mail .create " 


prg 


1 


"adrs-ptr" 


seq 


1 


"adr s-data" 


seq 


4 


"mail.readerl" 


prg 


1 5 


"mail .adder 1" 


prg 


1 9 


raail.aQder2 


prg 


1 7 


11-1 II 
ma 1 1 . menu 


prg 


12 


"shell" 


prg 


37 


"mail.reader2" 


prg 


27 


"mail .correction" 


prg 


515 


blocks free . 





ready . 



■ Program for MAIL.MENU 



100 


rem * 


— mail. menu — 




no 










120 










130 


rem * 


^--initialization--** 




140 


home$ 


= chr$(147) 


:rem clr/horae 




150 


: : cd$ 


= chr$( 17) 


: rem cursor d 


own 


160 


: : cu$ 


= chr$(145) 


: rem cursor u 


P 


170 


: :cl$ 


= chr$(157) 


: rem cursor 1 


eft 


180 


: :cr$ 


= chr$( 29) 


:rem cursor r 


ight 


190 


: blk$ 


= chr$(144) 


: rem black 




200 


: yl w$ 


= chr$(158) 


:rem yellow 




210 


: wht$ 


= chr$( 5) 


: rem white 




220 


: r vs$ 


= chr$( 18) 


: rem reverse 


video 


230 










240 


poke 


53280, 14: rem 


border = It. 


blue 


250 


poke 


53272, 23:rem 


upper/ lowe r 


case 


260 


poke 


53281, 6:rem 


set bkgrd to 


blue 


270 








280 










500 


rem * 


* — menu — * 






510 


tb = 


5 : rem tab va 


lue — 5 s paces 


r t . 


520 


print 


home$ : rem c 


Ir/home 




530 


print 


wht$ 






540 


print 


tab( tb + 3) 






550 


print 


r vs$ ; 






560 


print 


"MAIL PROGRAM MENU" 




570 


print 
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580 
590 
600 
6 10 
6 20 
630 
640 
650 
660 
6 70 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1110 
1 120 
1 1 30 
1 140 
1 150 
1160 
1170 
1 180 
1 190 





int 


y lw$ 


pr 


int 


tab( tb) 


pr 


int 


"1. FILE 


pr 


int 


: p r i n t t a 


pr 


int 


"2. FILE 


pr 


int 


: pr in t t a 


pr 


i nt 


"3. FILE 


pr 


i nt 


: p r i n t t a 


pr 


int 


"4. FILE 


pr 


i n t 


: p r i n t t a 


pr 


int 


"5. LIST 


pr 


int 


: p r i n t t a 


pr 


int 


"6. END" 


pr 


int 


: print ta 


po 


ke 


19,32: rem 


i n 


put 


"Which P 



number 



CREATION PROGRAM" 
>(tb) 

ADDITION PROGRAM" 
>(tb) 

DISPLAY PROGRAM" 

3(tb) 

CORRECTION PROGRAM" 
5(tb) 

OF FILES" 
3(tb) 

3(tb) 

disable input ? 
rograra Number? ";nu$ 

val ( nuS) 



if 


number = 


1 


then 


1 000 


if 


number = 


2 


then 


2000 


if 


number = 


3 


then 


3000 


if 


number = 


4 


then 


4000 


if 


number = 


5 


then 


5000 


if 


number = 


6 


then 


6000 



rem ''--incorrect choice message-* 
print: print 
print tab(tb) 

print r vs $ ; " I nc r r ect Choice!" 
print 

print tab(tb) 

print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue: 
gosub 19000: rem return key routine 
goto 500:rem menu — check again 



rem * * — file ere a t i o n prog 
print h o m e $ : r e ra c 1 r / h o m e 
c d = 2 : r e in 2 lines down 
gosub 9 000:rera cursor down 
print tab( 1 5) 
print rvs$; 
print "WARNING!" 
print : print 
print 
print 



routine 



'If 
"do 
"Do 



the 'adrs-data' file already exists' 
NOT run this program!" 
you want the file creation 



print 
print 
print 
print 

gosub 8000: 
if y e s $ = ' 
print: print 

print "Are you sure? Type " ; wh t $ ; " YES " ; y 1 w$ ; " if you are: 

input y e s $ 

if yes$ = "YES" or yes$ 



rem y / n 
'n" then 



input routine 
500: rem menu 



'yes" then 1210 
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1200 
1210 
1220 
1230 
12^0 
1250 
2000 
2010 
2020 
2030 
2040 
2050 
3000 
3010 
3020 
3030 
3040 
3050 
4000 
4010 
4020 
4030 
4040 
4050 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
7000 
7010 
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goto 1000:rem check again 
file$ = "MAIL. CREATE" 

gosub 7100:rem new program routine after question 
' "mail . create" : rem load & run 



rem **--file addition prog.--** 
file$ = "MAIL. ADDER2" 
gosub 7000:rem new program routine 
' "mai 1 . adder 2" : r em load & run 



rem **--file display prog.--** 
file$ = "MAIL.READER2" 
gosub 7000:rem new program routine 
" "mail . reader 2" : rem load & run 



rem **--file correction prog.--** 
file$ = "MAIL. CORRECTION" 
gosub 7000:rem new program routine 
* "mai 1 . cor r ec t i on" : rem load & run 



rem ** — list of files routine — ** 

print home$:rem clr/home 

@"$":rein wedge/diskette directory 

print cu$ ; chr $( 1 3) : rem 13 = rtn 

print "Are you ready to return to the menu?" 

print 

gosub 8000:rem y/n input routine 
if yes$ = "y" then 500:rem menu 
goto 5000:rem check again 



rem **--end routine--** 

poke 19,0:rem restore input prompt 

print home$:rem clr/home 

cd = 5:rera 5 lines down 

gosub 9000:rem cursor down routine 

print tab( tb ) 

print rvs$; 

print "That's all for this session!" 
print : print : print 
print tab(tb + 5) 
print rvs$; 

print "See you next time." 
print ylw$ 

cd = 10:rem 10 lines down 

gosub 9000:rem cursor down routine 

end 



rem **--new program routine--** 
print home$:rem clr/home 
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7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 



cd = 2 : rem 
gosub 
print 
print 

print 
print 
gosu 



2 lines down 
9000:rem cursor down routine 
"You have selected the ";file$: 
print: print 

"Is this the program you want?" 
b 8000: 



print:print program. 



rem y/n input routine 
if yes$ = "n" then 500:reni menu 
print horae$:rein clr/home 
7110 cd = 5:rera 5 lines down 
7120 gosub 9000:rem cursor down routine 
print tab(tb) 
print rvs$; 
print "Please wait!" 
print:print:print 
print tab(tb + 5) 
print r vs$ ; 

print "I'm loading,..." 
print rprint: print 
print tab(tb + 10) 
print rvs$; 
print file$ 

poke 19,0:rem restore input prompt 
return 



7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
19000 
19010 
19020 
19030 
19040 
19050 
19060 



then yes$ = 
then yes$ = 



rem ** — y/n input routine--** 
print "Type a " ; wht$ ; "Y" ; ylw$ ; " or 
poke 19,32;rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" 
if yes$ = "n" or yes$ = "N" 

print 

print rvs$; "Incorrect Choice! ";ylw$ 
print 

goto 8000:rem check again 



rem **--cursor down routine- 

f or i = 1 toed 

print c d $ ; 

next i 

return 



rem **--return key routine--** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 
next i 

X = peek ( 1 9 7 ) : rem store key press 
if X = 1 then 19080:rem 1 = rtn 



; wht$ ; "N" ; ylw$ ; " 



: return 
' : return 



19070 goto 19050:if not 1 go back 
19080 poke 198,l:rem allow for cursor 
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19090 poke 631,0:rem clr kbrd 

19100 nu$ = "":rem clr string variable 

19110 return 

ready . 



Program for MAIL.CREATE 



100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 

510 
520 
530 



rem * ' 




— ma i 1 . c rea 


te- 






rem * ' 




-initialize 


tio 


n — * * 




horae$ 




chr$( 147) : 


rem 


clr/horae 


: :cd$ 




chr$( 17): 


rem 


cursor 


down 


: : cu$ 




chr$( 145) : 


rem 


cursor 


up 


: : cl$ 




chr$( 157): 


rem 


cursor 


left 


: : cr$ 




c h r $ ( 2 9): 


rem 


cursor 


right 


: blk$ 




chrS( 144) : 


rem 


black 




: ylw$ 




chr$( 158) : 


rem 


yellow 




: wht$ 




chr$( 5): 


rem 


white 




: r V s$ 




c h r $ ( 18): 


rem 


reverse 


vide 


dim line$(20) 









poke 53272, 23:rem upper/lower case 
poke 53281, 0:rem set bkgrd to black 



rem 

k = 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

pri 

p o k 

i. n p 

pri 

if 

if 

got 

k = 

got 



— keyboard input routine--** 
l:rem line counter 
nt home$:rem clr/horae 
nt tab(5) 

nt rvs$;:rem reverse 

nt "INSTRUCTIONS" 

nt ylw$:rem yellow 

nt "Type name and address as if" 

nt "addressing an envelope." 

nt "Do not use a comma or colon!" 

nt "Press "; wht $; "RETURN "; y lw$ ; 

nt " after each line." 

nt 

nt "Type the word " ; wh t $ ; " END" ; y 1 w$ ; " when finished, 
nt 

nt "Type in line " ; k ; " : " 
e 19,32:rem disable input ? 
ut line$(k) 
nt 

"end" or line$(k) 
"" then print "We 



line$(k) ■ 
line$(k) : 
o 440 

k + 1 
o 440 : rem 



"END" then 540 
need some information, 



go 



back for more 
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540 
550 
560 
570 
580 
590 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
8 70 
880 
890 
900 
910 
920 
930 
940 
950 
960 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 



line$(k) = "*":rem separator for phone number 
k = k + I 

print honie$:rem clr/horae 
cd = 3:rem 3 lines down 
gosub 9000:rera cursor down routine 

print "PHONE: ";:print "Press wht$ ; "RETURN" ; ylw$ ; " if 
none . " 

input line$(k) 

if line$(k) = "" then line$(k) = "NONE" 
k = k + 1 

line$(k) = " ! " : rem separator between sets of information 



1 



rem ** — correction routine — ** 
print honie$:rera clr/horae 
cd = 3:rem 3 lines down 
gosub 9000:rem cursor down routine 
print "Do not change the line with the "; 
print "This symbol is used as a separator 
print 
for i 
print 
next i 
print 

print "Change any line? "; 
gosub 8000:rem y/n input routine 
print 

if yes$ = "y" then 850 
if yes$ = "n" then 830 

goto 3000:rera file creation routine 



wht$;"*";ylw$;", 



to k - 1 
";line$(i) 



|)rint:input "Change which line? ' 

|) r i n t 

if In > k - 1 then print "Number 



if line$(ln) = "*" then 
print "Li ne" ; 1 n ; "now is 
print line$(ln) 
print 
print 
input 
goto 



In 



too large !": goto 850 



"Line" ; In ; "should 
line$(ln) 
660:rem correction routine 



print "Line" ; In ; "is the 



be: 



;goto 850 



rem **--file creation routine--*^ 

rem '''-pointer file-* 

open 2,8,2,"0:adrs-ptr,seq,write' 

print#2,k 

close 2 



rem *-data file-* 
open 3 , 8 , 3 , " : ad r s- 
for i = 1 to k 
print#3, line$(i) 
next i 



data , seq , write" 
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3120 close 3 
3130 : 
3140 : 

5000 rem * * — return to p r o g r a m menu--*-" 
5010 poke 19,0:rem restore input prompt 
5020 rem clr/home cursor down routine 
5030 print home$:cd = 5:gosub 9000 
50A0 print tab(tb) 
5050 print rvs$; 

5060 print "LOADING THE MAIL MENU PROGRAM" 
5070 ""mail. menu" 
5080 : 
5090 : 



8000 


rem * 


--y/ 


8010 


print 


"Typ 


8020 


poke 


19,32 


8030 


input 


yes$ 


80A0 


print 




8050 


if ye 


s$ = 


8060 


if ye 


s$ = 


8070 


print 




8080 


print 


r vs$ 


8090 


print 




8100 


goto 


8000: 


8110 






8120 






9000 


rem * 


*--c u 


9010 


for i 


= 1 


9020 


print 


cd$; 


9030 


next 


i 


9040 


r e t ur 


n 



" ;wht$ ; "N" ; ylw$ ; " 



"y" or yes$ = "Y" then yes$ = "y":return 
"n" or yes$ = "N" then yes$ = "n":return 

;"Incorrect Cho i c e ! " ; y 1 w$ 



down routine--'' 



ready . 
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■ Program for MAIL.ADDER2 



100 


rem * 




--ma i 1 . a dde 


r 2-- 


-1- V ^ 


110 












120 












1 30 


rem * 




-initializa 


tion 


-^'f 


1 40 


h orae $ 


= 


chr$( 147) : 


rem 


clr/home 


150 


: : cd$ 


= 


chr$( 17): 


rem 


cursor down 


1 60 


: : cu$ 


= 


chr$( 145) : 


rem 


cursor up 


1 70 


: : cl $ 




chr$( 157) : 


rem 


cursor lef t 


180 


: : cr$ 




chr$( 29): 


rem 


cursor right 


190 


: blk$ 




chr$( 144) : 


rem 


black 


200 


: ylw$ 




chr$( 158) : 


rem 


yellow 


210 


: wht$ 




chr$( 5): 


rem 


white 


2 20 


: r V s $ 




chr$( 18): 


rem 


reverse video 


2 30 












240 


dim 1 


i n 


e$( 20) 






2 50 


poke 


53272, 23:rem 


u ppe 


r/lower case 


2 60 


poke 


53281, 0:rem s 


et bkerd to black 


265 












266 












270 


rem 




-new lines 


for 


adder--** 


271 


print 


h o m e $ : r c m r 1 


r / home 


272 


cd = 


5 : 


rem 5 lines 


down 


273 


g osu b 


9000 : rem cursor 


down routine 


274 


print 


ylw$;"0NE MOMENT 


' PLEASE!" 


275 












276 













2 7 7 rem * * - - f i 1 e 

278 : 

279 rem * -pointer 

280 open 2,8,2,"0 

281 input#2,rec 

282 close 2 

283 : 

284 rem *-data fi 

285 dim tlines$(r 

286 open 3,8,3,"0 

287 for i = 1 to 

288 input#3 , tline 

289 next i 

290 close 3 

291 : 

292 tk = rec:rem 

293 : 

294 : 

300 rem **--keyboard input routine--** 

310 k = l:rem line counter 

320 print home$:rem clr/home 

330 print tab(5) 

340 print rvs$;:rem reverse 

350 print " I NSTRUCT I OX S " 

360 print ylw$:rem yellow 

370 print "Type name and address as if" 

380 print "addressing an envelope." 
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input routine--** 

f ile-* 
: adrs-ptr , seq , read" 



le-* 

ec + 100):rera add up to 100 new lines 
:adrs-data, seq, read" 
r ec 
s$(i) 



total k = # of lines 



390 print "Do not use a comma or colon!" 
400 print "Press "; wht$ ; "RETURN" ; ylw$ ; 
410 print " after each line." 

420 print 

430 print "Type the word " ; wht $ ; "END" ; y lw$ ; " when finished." 
440 print 

450 print "Type in line ";k;":" 
460 poke 19,32:rera disable input ? 
470 input line$(k) 
480 print 

490 if line$(k) = "end" or line$(k) = "END" then 540 

500 if line$(k) = "" then print "We need some information.": 

goto 440 
510 k = k + 1 

520 goto 440:rem go back for more 
530 : 

540 line$(k) - "*":rem separator for phone number 
550 k = k + 1 

560 print home$:rem clr/horae 

570 cd = 3:rem 3 lines down 

580 gosub 9000:rem cursor down routine 

590 print "PHONE: ";:print "Press "; wht $; "RETURN" ; y lw$ ; " if 

none . " 
600 input line$(k) 

610 if line$(k) = "" then line$(k) = "NONE" 
620 k = k + 1 

630 line$(k) = "!":rem separator between sets of information 
640 : 
650 : 

660 rem ** — correction routine — ** 

670 print home$:rem clr/home 

680 cd = 3 : rem 3 lines down 

690 gosub 9000:rem cursor down routine 

700 print "Do not change the line with the " ; wht$ ; "*" ; y lw$ ; " . " 
710 print "This symbol is used as a separator." 
720 print 

730 for i = 1 to k - 1 
740 print i;" ";line$(i) 
750 next i 
760 print 

770 print "Change any line? "; 

780 gosub 8000:rem y/n input routine 

790 print 

800 if yes$ = "y" then 850 
810 if yes$ = "n" then 830 
820 : 

830 goto 1000:rem print label routine 
840 : 

850 print:input "Change which line? ";ln 
860 print 

870 if In > k - 1 then print "Number too large!":goto 850 

880 if linc$(ln) = "*" then print "Line" ; In ; "i s the *":goto 850 

890 print "Line" ; In ; "now is:" 

900 print line$(ln) 

910 print 
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920 

930 

940 

950 

960 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 

1110 

1120 

1130 

1 lAO 

1 150 

1 160 

1 170 

1180 

1190 

1 2 00 

1210 

1220 

1230 

12A0 

1250 

1251 

1252 

1253 

1254 

1255 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 



print "Line" ; In ; "should be:" 
input line$( In) 

goto 660:rem correction routine 



rem * 


* — pr 


print 


home: 


cd = 


3 : rem 


gosub 


9000 


print 


"Wou 


print 




print 


"mai 


print 




gosub 


8000 


if ye 


s$ = ' 


if ye 


s$ = 


print 


home 


cd = 


3 : rem 


gosub 


9000 


print 


"Pie, 


print 




print 


"is . 


print 




print 


"Are 


print 




gosub 


8000 


if ye 


s$ = 



3 lines down 



to print a 



"y" 

II _ II 



then 1120 
then 2000 



rem ** — printer channel--** 
open 4,4,7 

rem first 4 = file # 

rem second 4 = printer device # 

rem 7 = command for upper/lower case 



for i = 1 to k 

if line$(i) = "*" then 

if line$( i) = " ! " then 

print#4 , line$ ( i ) 

next i 

close 4 



1 = 1 
1300 



+ l:goto 1300 



rem -'-'---repeat routine--** 

rem *-add new lines to exist, file lines-* 
for i = 1 to k 

tlines$(tk + i) = line$(i):rem tk + i, not tk + 1 

next i 

tk = tk + k 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rem cursor down routine 

print "Do you want to add more information?" 
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2120 gosub 8000:rem y/n input routine 
2130 if yes$ = "y" then 300 
2140 if yes$ = "n" then 3000 
2150 : 
2160 : 

3000 rem **--file addition routine--** 
3010 : 

3020 rem *-pointer file-* 
3030 open 2 , 8 , 2 , "@0 : adrs-ptr , seq , write" 
3040 print#2,tk 
3050 close 2 
3060 : 

3070 rem *-data 
3080 open 3,8,3 
3090 for i = 1 
3100 print#3,tl 
3110 next i 
3120 close 3 
3130 : 
3140 : 

5000 rem **--end routine--** 
5010 end 
5020 : 
5030 : 

8000 rem ** — y/n input routine — ** 

8010 print "Type a " ; w h t $ ; " Y " ; y 1 w $ ; " or " ; wh t $ ; "N" ; y 1 w$ 
8020 poke 19,32:rem disable input ? 
8030 input yes$ 
8040 print 

8050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
8060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
8070 print 

8080 print r vs $ ; " I n co r r ec t Cho i c e ! " ; y lw$ 

8090 print 

8100 goto 8000:rem ask again 
8110 : 
8120 : 

9000 rem **--cursor down routine--** 
9010 for i = 1 to cd 
9020 print cd$; 
9030 next i 
9040 return 

ready . 



file-* 

,"@0:adrs-data,seq, write" 

to tk 

ines$(i) 
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■ Program for MAILREADER2 



100 rem *** — mai 1 . reader 2 — *** 
110 : 
120 : 



1 30 


rem * * 




-initialization 


__** 


140 


home$ 




chr$( 147) 


rem 


clr/home 


150 


: : cd$ 




chr$( 17) 


rem 


cursor down 


160 


: : cu$ 




chr$(145) 


rem 


cursor up 


170 


: : cl$ 




chr$(157) 


rem 


cursor left 


180 


: : cr $ 




chr$( 29) 


rem 


cursor right 


190 


: blk$ 




chr$(144) 


rem 


black 


200 


: y lw$ 




chr$( 158) 


rem 


yellow 


210 


:wht$ 




chr$( 5) 


rem 


white 


220 


: r vs$ 




chr$( 18) 


rem 


reverse video 


225 


: bnk$ 




chr$( 10) 


rem 


blank line 



230 : 

240 poke 53280, 14:rem border = It. blue 
250 poke 53272, 23:rem upper/lower case 
260 poke 53281, 2:rem set bkgrd to red 

265 : 

266 : 

270 rem **--user message--** 

271 print home$:rem clr/home 

272 cd = 5:rem 5 lines down 

273 gosub 9000:rem cursor down routine 

274 print ylw$;"0NE MOMENT PLEASE!" 

275 : 

276 : 

277 rem **--file input routine--** 

278 : 

279 rem '''-pointer file-* 

280 open 2 , 8 , 2 , "0 : adr s-ptr , seq , read" 

281 input#2 , rec 

282 close 2 

283 : 

284 rem *-data file-* 

285 dim 1 1 i nes$ ( r ec ) , nd$ ( r ec ) , u( r ec ) , r ( r ec ) , ad $ ( r ec ) , zi$ ( r ec ) 

286 open 3 , 8 , 3 , "0 : adr s-data , seq , read" 

287 for i = 1 to rec 

288 input#3, tlines$(i) 

289 next i 

290 close 3 

291 : 

292 tk = rec:rem total k = # of lines 

293 : 

294 : 

295 : 

400 rem ** — menu — ** 

410 tb = 5:rem tab value--5 spaces rt. 

420 print home$:rera clr/home 

430 print wht$ 

440 print tab(tb + 3) 

450 print rvs$; 

460 print "DISPLAY MENU" 
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470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

6 60 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 

1110 

I 120 

2000 

2010 



print 

print : 

print 

print : 

print 

print: 

print 

print : 

print 

print: 

print 

print: 

p r i n t 

print: 

print 

print: 

print 

print: 

input 

number 



y Iw 
pri 
"1 . 
pri 
"2 . 
pri 
"3. 
pri 
"4. 
pri 
"5. 
p r i 
"6 . 
pri 
"7 . 
pri 
"8. 
pri 
"Wh 



nt tab(tb) 

INFORMAT10N--ORIG. ORDER" 
nt tab(tb) 

NAMES ONLY" 
nt tab(tb) 

INFORMATION — NO PHONE" 
nt tab( tb) 

SPECIFIC NAME" 
nt tab( tb) 

SPECIFIC NAME--NO PHONE" 
n t t a b ( t b ) 

INFORMATION--RANGE" 
n t t a b ( t b ) 

INF0RMAT10N-~ALPHABETICAL" 
n t t a b ( t b ) 

RETURN TO PROGRAM MENU" 
nt tab( tb) 
ich Number Please 
val(nu$) 



n u $ 



if number 
if number 
i f n u ra b c r 
number 
number 
number 
number 



1 

2 

3 the n 
4 



if number 



then 1000 

then 2000 
3000 

then 4000 

then 5000 

then 6000 

then 7000 

then 8000 



to continue: 



rem * -incorrect choice message-* 
print:print tab(tb) 
print rvs$;" Incorrect Choice!" 
print:print tab(tb) 

print "Press "; wh t $; "RETURN "; y lw$ ; ' 
gosub 19000:rem return key routine 
goto 400:rem menu — check again 



rem — original order routine — ** 
gosub 10000:reni display routine 
rem clr/horae cursor down routine 
print home$:cd = 3:gosub 9000 
for i = 1 to tk 

if tlines$(i) = "*" then 1080 

if tlines$(i) = "!" then pr i n t #f i 1 e , bnk$ : go t o 1080 

print#file,tlincs$(i) 

next i 

goto 20000:rem menu return routine 



rem ** — name only routine — ** 
gosub 10000:rem display routine 
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2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 



print honie$:reiii clr/home 
for i = 1 to tk - 1 

if tlines$(i) = tlines$(l) then 2080 
if 1 1 i nes$ ( i ) = " ! " then 2080 

goto 2150 

rem *-line up numbers-* 

if i < 10 then print tab(3) 

if i > 9 and i < 100 then print tab(2) 

if i > 99 then print tab(l) 

if tlines$(i) = tlines$(l) then print#file,i;tlines$(l) 
if tlines$(i) = "!" then print#file,i + l;tlines$(i + 1) 
next i 

goto 20000:rem menu return routine 



rem — no phone routine — ** 
gosub 10000:rem display routine 
print horae$:rem clr/home 
for i = 1 to tk 

if tlines$(i) = "*" then i = i + l:goto 3070 

if tlines$(i) = "!" then pr in t # f i le , bnk$ : go t o 3070 

print#file,tlines$(i) 

next i 

goto 20000:rem menu return routine 



rem --search routine--** 
gosub 10000:rem display routine 
print horae$:rem clr/home 

print "Type the word " ; wht$ ; "END" ; y lw$ ; " when finished." 

poke 19,32:rem disable input ? 

print:input "Name to find: ";find$ 

if find$ = "END" or find$ = "end" then 4240 

print 

for i = 1 to tk 

if tlines$(i) = find$ then 4110 
goto 4210 

if tlines$(i) = "*" then 4210 
if tlines$(i) = "!" then 4210 
print#f ile , bnk$ 
print#file,tlines$(i) 
print#f ile , tlines$( i + 1) 
print#file,tlines$(i + 2) 

if tlines$(i + 3) <> then p r in t #f i 1 e , t 1 ines $ ( i + 3) 

if tlines$(i + 4) = "*" then 4200 

pr int#f ile , t lines$( i + 4):goto 4210 

pr i n t # f i le , t lines$ ( i + 5) 

next i 

print 

goto 4030:rem repeat until done 
goto 20000:rem menu return routine 
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4250 : 

4260 : 

4270 : 

5000 rem ** - -search routine/no phone- - 

5010 gosub 10000:rem display routine 

5020 print home$:rcm clr/home 

5030 print "Type the word " ; wh t $ ; " MM) " ; y 1 w$ ; " when finish 

504 poke 1 9 , 3 2 : r c m disable input ? 

5050 print:input "Name to find: ";flnd$ 

5060 if find$ = "END" or find$ = "end" then 5250 

5070 print 

5080 for i = 1 to tk 

5090 if tlines$(i) = find$ then 5110 

5100 goto 5220:rera next i 



51 I'O 


if tlines$( 


i) = "*" 


th 


en i = i + l:go 


to 5220 


5120 


if tlines$( 


i) = "!" 


th 


en print#file,b 


nk$:goto 5 220 


5130 


printSfile, 


bnk$ 








5140 


print #file, 


t 1 i n e s $ ( i 


) 






5150 


print#file, 


t 1 i n o s $ ( i. 


+ 


1) 




5160 


print#file, 


t 1 i n e s $ ( i 


+ 


2) 




5170 


if tlincsSC 


i + 3) <> 




*" then print#f 


ile,tlines$(i 


5180 


if tlines$( 


i + 3) = 


" 


" then i = i + 


l:goto 5220 


5190 


if tlines$( 


i + 4) = 




"theni=i+ 


l:goto 5220 


5200 


print#file , 


tlines$( i 


+ 


4):goto 5220 




52 10 


print#file, 


t lines$ ( i 


+ 


5) 




5 2 20 


next i 










5230 


print 










5240 


goto 5030:rem repeat 


U 


ntil done 




5250 


goto 20000: 


rem menu 


r e 


turn routine 




5260 












5270 












5280 












6000 


rem ** — ran 


ge routin 


e- 


_ * 





6010 gosub l,0000:rem display routine 
6020 rem clr/horae cursor down routine 
6030 print home$:cd = 3:gosub 9000 

6040 input "Type beginning line number please: ";bg 
6050 print:print 

6060 if bg < 1 then print "Number too small!":goto 6040 
6070 input "Type ending line nuber please: ";ed 
6080 print 

6090 if ed > tk then print "Number too large!":goto 6070 
6100 for i = bg to ed 

6110 if tLines$(i) = then i = i + l:goto 6140 

6120 if tlines$(i) = "!" then p r i n t#f i 1 e , bnk$ : go t o 6140 
6130 pr int#f ile , tl ines$ ( i ) 
6140 next i 

6150 goto 20000:rem menu return routine 
6160 : 
6170 : 
6180 : 

7000 rem '''^--a 1 pha be t i ca 1 order--** 

7005 rem clr/horae cursor down routine 

7010 print home$:cd = 5:gosub 9000 

7020 print r vs$ ; "WORKING--PLEASE DON'T TOUCH!!" 

7030 print ylw$ 
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7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
71 50 

7160 
7170 
7180 



rem *-get first info. -line-* 
for i = 1 to tk - 1 

if tlines$(i) = tline.s$(l) then 7130 

if tlines$(i) = "!" then i = i + 1 : goto 7130 

goto 7240:rem next i 



rem reverse order 
char = len(tiines$(i)) 

for va = 1 to char:if asc(mid$(tlines$(i),va,l)) 

then vz = va 
next V a 

if vz = or vz > char then ad$(i) = 
ad$(i) = mid$(tlines$(i),vz + l.char 
left$(tlines$(i),v2) 

" + tlines$(i + 



32 



t lines$ ( i ) : goto 7190 
- vz) + " + 



+ 



7190 ad$(i) = ad$(i) 

tlines$(i + 2) 
7 200 if 1 1 i nesS ( i + 3) 
I 1 i n e s S ( i + 3 ) 
if t)incs$(i + 4) 
ad$ ( i) = ad$ ( i ) + 
ad$(i) = ad$(i) + 
next i 



1) + 



+ 



<> 



then ad$(i) = ad$(i) + 



7 2 1 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7 510 
7520 
7530 
7540 
7550 



' then 7230 
+ tlines$(i 
+ tlines$(i 



4 ) : goto 
5) 



7240 



rem renumber for sort 
j = 1 

for i = 1 to tk 

if len(ad$(i)) > then nd$(j) = ad$(i): j 

nex t i 

n = J - 1 



j + 1 



-quicksort--* 



rem ' 
sa = 1 
print : print 

print rvs$;"STILL WORKING- 
u(l) = 1 
r( 1 ) 
ua = 
ra = 
sa = 
u z = 
r z = 
xS = 
c = 
if 



-PLEASE DON ' T TOUCH ! ! ' 



u ( sa ) 
= r ( sa ) 
= sa - 1 

= u a 

= r a 

= nd$( int( (ua -I- ra)/2) ) 

c + 1 

ndS(uz) = x$ or nd$(uz) 
1 



then 7510 



u z = u z + 
goto 7470 
c = ca 

if x$ = nd$(rz) or x$ > nd$(rz) then 7550 
r z = r z - 1 
goto 7510 

if uz > rz then 7620 
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7 560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
76 50 
7660 
7670 
7680 
7690 
7700 
7710 
7720 

7730 
7740 
7745 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
79 50 
7960 
7970 
7980 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
9000 



s = s + 1 
t$ = nd$(uz) 
nd$(uz) = nd$(rz) 
nd$(rz) = t$ 
uz = uz + 1 
rz = rz 
if uz = 
if u z = 
sa = sa 
11 ( s a ) = u z 
r(sa) = 
ra = rz 
if ua < 
if sa > 



- 1 

rz or uz < rz then 7470 
ra or uz > ra then 7670 
+ 1 



r a 

ra then 7440 
then 7410 



rem sort completed! 



rem * * — display — * * 

gosub 10 00:rem display routine 

rem clr/home cursor down routine 

print horae$:cd = 3:gosub 9000 

fori=lton 

vz = 1 : q = 1 

char = len(nd$(i)) 

for va = 1 to char 

if mid$(nd$( i ) , va , 2 ) = then 7820 

goto 7850 

zi$(q) = m i d $ ( n d $ ( i ) , V z , va - vz) 
vz = va + 2 
q = q + 1 
next v a 

zi$(q) = mi d $ ( n d $ ( i ) , vz , char - (vz - 1)) 

for e - 1 to q 
print#file,zi$(e) 
next e 

pr i n t # f i le , bnk$ 

next i 

goto 20000:rem menu return routine 



rem — return to program menu — ^' 
poke 19,0:rem restore input prompt 
rem clr/home cursor down routine 



print home$:cd 
print tab( tb) 
print rvs$; 
print "LOADING 
' "raai 1 . menu" 



= 5:gosub 9000 



THE MAIL MENU PROGRAM" 



-cursor down routine-- 



158 
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9010 

9020 

9030 

90A0 

9050 

9060 

10000 

10010 

10020 

10030 

10040 

10050 

10080 

10090 

10100 

10110 

10120 

10130 

lOlAO 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

102A0 

10250 

10260 

10270 

10280 

10290 

1 0300 

10 3 10 

10320 

10330 

10340 

10350 

10360 

10500 

10510 

10520 

10530 

10540 

10550 

18000 

1801 

18020 

18030 

18040 

18050 

18060 

18070 

18080 



for i = 1 to cd 
print cd$; 
next i 
return 



rem 


— display routine — * 






print 


home$:rem clr/home 






c d = 


3:rem 3 lines down 






g s u b 


9000: rem cursor down 


r u 


tine 


print 


"Would you like a pa 


[)e r 


print out 


print 








g s u b 


18000:rern y/n input 


rout 


i n e 


if ye 


s$ = "y" then 10120:r 


em p 


rn t 


if ye 


s$ = "n" then 10300:r 


em s 


c r n 


print 


home$:rem clr/home 






cd = 


3 : r e ni 3 lines down 






g o s u b 


9000:rem cursor down 


rou 


tine 


print 


"Please make sure th 


e pr 


inter" 


print 








print 


"is on and ready to 


use . 


11 


print 








print 


"Are you ready to be 


gin 


printing? 


print 








g o s u b 


18000:reni y/n input 


rout 


i ne 


i 1 y e 


s$ = "n" then 10000 






rem * 


-printer display-* 






file 


= 4 






d V i c 


= 4 






c mn d 


= 7 







goto 10500:rem open instruction 



rem '''-screen display-* 
file = 3 
d V i c = 3 
cmn d = 1 

goto 10500:rem open instruction 

rem *-open instruction-* 
open f i 1 e , d vi c , cmnd 
return 



rem * 




y/n 


print 


"1 


y pe 


poke 


1 9 , 


32: 


input 


ye 


s$ 


print 






if ye 


s$ 


_ It 


if ye 


s$ 


_ It 


print 






print 


r V 


s$ ; 



input routine — 

a " ;wht5 ; "Y" ; ylwS ; " or " ; wh t $ ; "N " ; y 1 w3 
■era disable input ? 



or yes$ = "Y" then yes$ = "y":return 
or yes$ = "N" then yes$ = "n":return 



ylw$ 
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18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
19150 
20000 
20010 
20020 
20030 
20040 
20050 

20060 
20070 
20080 



print 

goto 18000:rera begin again 



rem ** — return key routine — 
poke 198,0:reiii clr kbrd buffer 
for i = 631 to 640 
poke i,0:rera no value 

next i 

X = pe ek ( 1 9 7 ) : rem store key press 

if X = 1 then 19080:rein 1 = rtn 

goto 19050:if not 1 go back 

poke 19,0:rem restore input prompt 

poke I98,l:rein allow for cursor 

poke 631,0: rem clr kbrd 

nu$ = "":rera clr string variable 

return 



rem — menu return routine — *" 

print#file 

close file 

print 

poke 19,32:rem disable input ? 

print "Press "; wht$ ; "RETURN" ; ylw$ ; " to go to the Display 
Menu : " ; 

gosub 19000:rera return key routine 
print 

goto 400:rem display menu routine 



ready , 
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■ Program for MAILCORRECTION 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
265 
266 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
400 
410 
420 
430 
440 
450 
460 



rem * 


--mail. correct 


ion — * * * 


-'c 


*--initializatio 


n ^' " 


. 1 U 111 c >p 


= chr$(147) 


r e ni 


I — LI / IlUlllC 


. . C □ 


- rhrt? 17") 


r e ni 


cursor down 


: : cu$ 


= chr$(145) 


rem 


cursor up 


: :cl$ 


= chr$(157) 


rem 


cursor left 




= chr$( 29) 


rem 


cursor right 


: D i K q) 


= chr$(144) 


rem 


black 


• ^T^ \ J <t 


= chr$(158) 


rem 


yellow 


:wht$ 


= chr$( 5) 


rem 


whi te 


: r vs$ 


= chr$( 18) 


rem 


reverse video 


: bnk$ 


= chr$( 10) 


rem 


blank line 


poke 


53280, 5:rem 


bor 


der = green 


poke 


53272 , 23 : rem 


upp 


er/lower case 


poke 


53281 , 1 1 : rem 


set 


bkgrd = greyl 



rem -'■-■■--user message — 

print horae$:rem clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem cursor down routine 

print ylw$;"0NE MOMENT PLEASE!" 



rem — file input routine — ** 

rem -''-pointer file-* 

open 2,8,2,"0:adrs-ptr,seq,read" 

input#2 , rec 

close 2 

rem *-data file-* 
dim tlines$(rec) 

open 3,8,3,"0:adrs-data,seq,read" 
for i = 1 to rec 
input#3 , t lines$ ( i) 
next 1 
close 3 

tk = rec: rem total k = # of lines 



rem **--menu routine--*'' 

tb = 5:rem tab value--5 sps.rt. 

print home$:rera clr/home 

print wht$ 

print tab(tb + 3) 

print rvs$; 

print "CORRECTION MENU" 
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A70 print ylw$ 

480 printrprint tab(tb) 

490 print "1. CFIANGE OR CORRECT INFO." 

500 print:print tab(tb) 

510 print "2. DELETE INFORMATION" 

520 print:print tab(tb) 

530 print "3. WRITE REVISED FILE" 

540 print:print tab(tb) 

550 print "4. RETURN TO PROGRAM MENU" 

560 print:print tab(tb) 

570 input "Which Number Please";nu$ 

580 number = val(nu$) 

590 : 



600 


if 


number 


= 1 


then 


1000 


610 


if 


number 


= 2 


then 


2000 


620 


if 


number 


= 3 


then 


3000 


630 


if 


number 


= 4 


then 


4000 



640 : 

650 gosub 7000:rem incorrect choice 
660 goto 400:rem menu routine 
6 70 : 
680 : 

1000 rem * * — correction routine — * * 

1010 print hoineSirera clr/home 

1020 cd = 3:rera 3 lines down 

1030 gosub 9000:rem cursor down routine 

1040 print tab(tb) 

1050 print "Type a " ; wh t $ ; " " ; y 1 w$ ; " when finished." 

1060 print:print tab(tb) 

1070 poke 19,32:rcni disable input ? 

1080 input "Display which line? ";nb$ 

1090 if nb$ = "0" then 20000: rem menu 

1100 nb = val(nb$) 

1110 rem incorrect choice/ask again 

1120 if nb > tk then gosub 7000:goto 1000 

1130 cd = 4:gosub 9000;rera crsr down 4 

1140 print tab(tb - I) 

1150 print nb;" " ; t 1 i n es $ ( n b ) 

1160 print: print tab(tb) 

1170 print "Is this correct? " 

1180 print:print tab(tb) 

1190 gosub 18000:rem y/n input routine 
1200 if yes$ = "y" then 1000 
1210 print:print tab(tb) 

1220 print "Type in the correct information:" 

1230 print:print tab(tb - 1) 

1240 print nb;" ";:input cinfo$ 

1250 pr in t ; t 1 ines$ ( nb ) = cinfo$ 

1260 rem clr/home — cursor down routine 

1270 print home$:cd = 3:gosub 9000 

1280 print:print tab(tb - 1) 

1290 print nb;" " ; t 1 i n es $ ( n b ) 

1300 print 

1310 goto 1160:rera ask again 
1320 : 
1330 : 
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1340 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2 2 00 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 



rem --delete routine--** 

print horae$:rem clr/home 

cd = 3:gosub 9000:rem crsr down 3 

print t a b ( t b ) 

print "Type a " ; wh t $ ; "0" ; y 1 w$ ; " 
print:print tab(tb) 
poke 19,32:rem disable input ? 
input "Delete which line? ";nb$ 
if nb$ = "0" then 20000:rem menu 
nb = val( nb$) 

rem incorrect choice/ask again 
if nb > tk then gosub 7000:goto 
cd = 4:gosub 9000:rem crsr down 
print tab( tb - 1 ) 
print nb;" " ; 1 1 i nes $ ( n b ) 
pr i n t : pr i n t : pr i n t tab(tb) 
print "Are you sure?" 
print:print tab(tb) 
print "Type " ; wht$ ; "YES" ; ylw$ ; " 
input ves$ 

if yes$ = "YES" or yes$ = "yes" 
goto 2000: rem begin again 



when finished." 



2000 
4 



if you are sure! 
then 2240 



rem * -display deleted Info.-* 
j = n b 

if tlines$(j) = "!" then 2290 
j = J + l:goto 2260 

rem * -format numbers & display-* 

rem clr/home — cursor down routine 

print home$:cd = 3: gosub 9000 

for i = nb to j 

if i < 10 then print tab(3) 

if i > 9 and i < 100 then print tab(2) 

if i > 99 then print tab(l) 

print i;" ";tlines$(i) 

tlines$(i) = "DELETED":d = d + 1 

next i 

print 

print "DELETING THIS INFORMATION" 



rem * -renumber w/out del. info.-* 
q = 1 

for i = 1 to tk 

if tlines$(i) = "DELETED" then 2490 
tlines$(q) = tlines$(i) 
q = q + 1 
next i 

rem subtract # of lines deleted for new total 
tk = tk - d 
d = 0:j = 
print 
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2550 
2560 
2570 
2580 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
31A0 
3150 
3160 
3170 
3180 
3190 
3 200 
3210 
3220 
3230 
32A0 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
7000 
7010 

164 



goto 20000:rem menu 



rem — file output routine — 

rem *-user message-* 

rem clr/home — cursor down routine 

print home$:cd = 3:gosub 9000 

print rvs$; 

print tab(tb) 

print "UPDATING FFLES." 

print: print. -print tab(tb + 10) 

print rvs$;:print "PLEASE WAIT!" 

rem * - d e 1 e t e / r e n a m c backup-* 

open 3,8,3,"(?'0:adrs-backup,seq,write 

close 3 

@"scratch:adrs-backup" 
(3"rename:adrs-backup = adrs-data" 



rem * -pointer file-* 

open 2,8,2,"@0:adrs-ptr,seq,write" 
print#2, tk 

close 2 

rem *-data file-* 

open 3,8,3,"0:adrs-data,seq,write" 
for i = 1 to tk 
print#3,tlines$(i) 
next i 
close 3 

rem *-user message/menu-* 

rem cl r /home--cur sor down routine 

print home$:cd = 5:gosub 9000 

print tab(tb) 

print rvs$; 

print "ALL FINISHED" 

cd = 10:gosub 9000 

goto 20000:rera menu routine 



rem — return to program menu---"' 
poke 19,0:rem restore input prompt 
rem clr/home — cursor down routine 
print home$:cd = 5:gosub 9000 
print tab(tb) 
print rvs$; 

print "LOADING THE MAIL MENU PROGRAM 
""mail .menu" 



rem ** -incorrect choice message- 
print : p r i n t : pr i nt tab(tb) 
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7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

10000 

10010 

10020 

1 0030 

L0040 

1 00 5 

10080 

10090 

10100 

10110 

1012 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10500 

10510 

10520 

10530 

10540 

10550 



print 
print : 
print 
gosub 
return 



rvs$; "Incorrect Choice!" 
print tab(tb) 

"Press " ;wht$ ; "RETURN" ; ylw$ ; " to continue:' 
19000:rem return key routine 



rem -•- 
for i 
print 
next i 
return 



''--cursor down routine- 
= 1 to cd 
cd$ ; 



rem 
print 
cd = 
gosub 
print 
print 
gosub 
if ye 
if ye 

print 

cd = 

gosub 

print 

print 

print 

print 

print 

[) r i n t 

gosub 

if ye 

rem * 
file 
d Vic 
cran d 
goto 

rem ■ 
file 
d V ic 
cmnd 
goto 



— display routine — * * 
home$:rem clr/home 
3:rem 3 lines down 
9000:rem cursor down routine 
"Would you like a paper print out?" 

18000:rem y/n input routine 
s$ = "y" then 10120:rem prnt 
s$ = "n" then 10300:rem scrn 

home$:rem clr/home 
3:rem 3 lines down 
9000:rem cursor down routine 
"Please make sure the printer" 

"is on and ready to use." 

"Are you ready to begin printing?" 

18000: rem y/n input routine 



''-printer display-* 
= 4 
= 4 
= 7 

10500:rem open instruction 

''-screen display-* 
= 3 
= 3 
= 1 

10500:rem open instruction 



rem -''-open instruction - 
open f i 1 e , d V i c , cmnd 
return 
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18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
19150 
20000 
20010 
20020 
20030 
20040 
20050 

20060 
20070 
20080 

ready. 



rem **--y/n input routine — ** 

print "Type a " ; wh t $ ; " Y" ; y 1 w$ ; " or " ; wht $ ; "N" ; y 1 w$ 
poke 19,32:rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
print 

print r vs $ ; " I nco r r ec t Choice !"; y lw$ 
print 

goto 18000:rem begin again 



rem ** — return key routine — ** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 

next i 

X = peek ( 1 97 ) : rem store key press 

if X = 1 then 19080:rem 1 = rtn. 

goto 19050:if not. 1 go back 

poke 19,0:rem restore input prompt 

poke 198,l:rem allow for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rem clr string variable 

return 



rem — menu return routine--** 
rem if printer used: print#file 
rem if printer used:close file 
print:print 

poke 19,32:rem disable input ? 

print "Press "; wht $; "RETURN "; y lw$ ; " to go to the 
Co r r ec t . Men u : " ; 

gosub 19000:rem return key routine 
print 

goto 400:rem display menu routine 
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additional 
sequential file 
techniques 



We are going to explore some other ways to work with sequential files and look 
at additional techniques for file handling. In this chapter, I am going to concentrate 
on the file routines of the various programs presented and not discuss the rest of 
the programming. The listings for the complete programs are included at the end 
of this chapter along with an explanation of the new commands used in these 
programs. 

We will begin with a series of programs that allows an individual to practice 
math and keep a record of the scores achieved. These programs are essentially drill 
and practice and may not be the best educational use of the computer. But for the 
purpose of demonstrating how files can be used in a variety of ways, these drill 
and practice programs will be sufficient. 

We again start with careful thought and preparation. We need a separate pro- 
gram for each mathematical operation, along with a program for the scores. This 
means that another program menu would be convenient. The essential difference 
between the operation programs is the sign of the operation: " + " for addition, " x " 
for multiplication, etc. With the exception of division, the numbers can be displayed 
in basically the same way. Therefore, the program presented for addition can also 
be used for subtraction and multiplication with changes made to only seven lines: 
100, 480, 510, 830, 840, 850, and 1 170. In all those lines, the references to addition 
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should be changed to the desired operation. After the "addition" program has been 
typed in, the procedure to make the necessary changes should be; 

1. Load the "add" program: 

/add 

2. List the first line to be changed: 
list 100 

100 rem ***— addition— *** 

3. Make the necessary change for the specific program: 
100 rem ***— subtraction— *** 

or 

100 rem ***-multiplication-*** 

4. List the next line and make the changes. 

5. Repeat for each of the seven lines. 

The seven lines with their changes follow: 



add 


100 rem- 


-addition—*** 




subtract : 


100 rem- 


subtraction—*** 




multiply: 


100 rem- 


multiplication—*** 




add 


480 input "number you are adding by? ";max$ 


subtract : 


480 input "number you are subtracting by? 


';max$ 


multiply: 


480 input 


"number you are multiplying by? 


";max$ 


add : 


510 {same as 480} 




subtract : 


510 {same as 480} 




multiply: 


510 {same as 480} 




add 


830 c 


= a + b 




subtract : 


830 c 


= a - b 




multiply: 


830 c 


= a * b 




add 


840 s$ 


= " + " 




subtract : 


840 s$ 






multiply: 


840 s$ 


= "x" 




add 


850 sn$ 


= "addition" 




subtract : 


850 sn$ 


= "subtraction" 




multiply: 


850 sn$ 


= "multiplication" 




add : 


1170 print tab(tb + 2) rvs$;nc$;" 's ";sn$;" 


practice.' 


subtract : 


1170 print tab(tb + 1) rvs$;nc$;" 's ";sn$;" 


practice.' 


multiply: 


1170 print tab(tb - 1) rvs$;nc$;" 's ";sn$;" 


practice.' 



168 CHAPTER EIGHT 



Once all the changes have been made, save the new program: 
^-SUBTRACT or ^MULTIPLY 

The program for division has additional code because the numbers must be formatted 
differently, and provision has been made so that all problems come out even. 

All these programs can be included in one large program, but the flow of logic 
in the program would not be as easy to follow as it is with separate programs. Little 
would be gained by forcing everything into one program since BASIC allows us 
to switch from one program to another if you are using a disk drive. 

We must carefully consider what we want to save in our scores data file. There 
are several pieces of information that might be important to save, but a good rule 
is to save only what is absolutely necessary — what it would be hard or impossible 
to calculate from existing information. For example, we could save the total number 
of problems, the number correct, the number wrong, the percentage, the name of 
the individual, the kind of mathematical operation, the number of digits chosen, 
and so on. If the programs were slightly altered, we could also save the actual 
problems missed, the number of tries on a particular problem, and the last question 
the person tried. Obviously, all this information is not necessary, although certain 
individuals might value and save information that others would not want. 

So the first step is to decide what information to save. In this example, we 
will save four things: the type of operation, the number of digits in the operation, 
the number of correct answers, and the number of wrong answers. Once we decide 
what to save, we need only save the assigned variables for these pieces of infor- 
mation. The code to do this is given below. 

3000 rem **--file input/output--** 
3010 : 

3020 rem *-user message-* 

3030 poke 19,0:rem reset input prompt 

3040 cd = 5:gosub 9000:rem crsr down 5 

3050 print tab(8) 

3060 print rvs$; 

3070 print "UPDATING FILES." 

3080 print:print:print tab(8) 

3090 print rvs$; "PLEASE WAIT!" 

3100 : 

3110 rem **-file input routine--** 
3120 k = 1 

3130 open 3,8,3,cv$ + ",seq,read" 
3140 input#3,s$(k):rem sign 
3150 input#3,dt(k):rem # of digits 
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3160 input#3,cr(k):rem # of correct 

3170 input#3,wr(k):rem # of wrong 

3180 if status = then k = k + 1:goto 3140 

3190 if status = 64 then k = k + 1 

3200 : 

3210 rem status = 0--all ok 
3220 rem status = 64--eof 
3230 rem status not or 64-1 st use 
3240 : 

3250 s$(k) = s$:dt(k) = dt:cr(k) = cr:wr(k) = wr 
3260 close 3 
3270 : 
3280 : 

3300 rem **--file output routine--** 

3310 open 4,8,4,"@0:" -i- cv$ -f- ",seq,write" 

3320 for i = 1 to k 

3330 print#4,s$(i):rem sign 

3340 print#4,dt(i):rem # of digits 

3350 print #4,cr(i):rem # of correct 

3360 print#4,wr(i):rem # of wrong 

3370 next i 

3380 : 

3390 close 4 
3400 : 
3410 : 

Some of this should be famiHar. But the sequence and a few commands may appear 
different. 

Remember that in our Mailing List System programs, we used one program 
to create the "adrs-data" file and another program to add to it. Such a sequence is 
usually necessary when creating a file that will later be added to. The use of the 
"status" command eliminates the need for two separate programs. Now, we have 
the following sequence: The first time the program is run, the computer will attempt 
to read information from a file that does not yet exist. When it finds that no such 
file exists, it creates the file and then writes the first set of information into the file. 
Thus, the file is created and the first set of information is written into the file. The 
second time (and succeeding times) the program is run, the computer reads the 
information from the file because it finds that such a file does exist. We have 
accomplished in one routine what would normally have taken two routines to do. 

The status command provides us with the current "status" of the system fol- 
lowing an input/output (I/O) operation. The first time this program is used, the 
status will indicate that no information has been read into the computer, because 
no such file yet exists. Since nothing has been read into the arrays, the counter (k) 
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retains the value of one (1). Control passes to line 3250, which stores the value of 
the current session's information in the appropriate array. Since the array now 
contains some information, we can proceed to write that information out to the 
diskette. The file output routine accomplishes the task of writing the information 
to the diskette in pretty much the same manner we have used before. 

But you should notice that we are using a variable for the file name. In our 
Mailing List System programs, we always used the constant "adrs-data" for our 
file name. But in this situation, and many file routines, it is more convenient to 
assign a variable as the file name. Anytime an individual uses any of these programs, 
the information is kept in a file under that person's name. By using a variable for 
the file name, we eliminate the need for separate programs for each person that 
uses any of the math operation programs. 

You must be careful to type your name the same way every time you use the 
programs. For example, if I answer that my name is DAVID the first time I use 
these programs, the file will be created under the name of DAVID. If I come back 
later and answer that my name is DAVE, a new and separate file will be created 
for DAVE. This need for consistency is the reason the entered name (line 560) is 
converted to lower case characters (7000-7180). It is also the reason the variable 
cv$ (instead of nameS) is used for the file name. It is possible to have at least three 
different logical forms of the same name: DAVID, David, or david. Without the 
conversion routine, each of these forms would create a new file. With this conversion 
routine, the name is always changed into lower case letters and, therefore, one file 
is created and updated with the file name appearing in lower case characters. As 
with most things, there are advantages to the use of a variable for the file name, 
but there are also disadvantages. The user may get tired of being required to type 
his or her name. But the use of a variable for the file name remains a popular 
programming technique. The variable must be a string variable since no file name 
can begin with a number. (The file name can contain a number but just cannot 
begin with a number.) 

The file routine used in the program "math. scores" is very similar to the one 
just discussed, but instead of writing information to the disk, this routine reads 
information from the disk. 

380 rem **-file input routine--** 
390 dim s${100),dt(100),cr(100),wr(100) 
400 open 2,8,2,cv$ + ",seq,read" 
410 k = 1 

420 input#2,s$(k):rem sign of operation 
430 input#2,dt(k):rem # of digits 
440 input#2,cr(k):rem # of correct 
450 input#2,wr(k):rem # of wrong 
460 k = k + 1 
470 if status = then 420 
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480 close 2 
490 : 



This time the status function is used to test for the end of file number 2, or the end 
of the data. If the status function is not included, we have no way of telling how 
much information or how many records exist in the file. We did not keep track of 
that information by writing out a counter to the file as we did in the Mailing List 
System. Without the status function, we would experience an "end of data error" 
and the program would halt — the RUN/STOP key would need to be pressed to 
bring the computer back. But with the status function, the computer is instructed 
to get information only so long as an error condition does not exist. Then, when 
the end of the file or "end of data error" occurs, the computer is informed to go to 
the next instruction (line 480) and proceed from there. At this point, we close the 
file, since we are now certain that we have all the information the file contains. 
The use of the status function saves both programming and disk space. 

You should notice one other major difference in this routine. In most of our 
programs, we have used FOR . . . NHXT loops. But this time, we do not know 
how many items the file contains and, therefore, we do not know how large the 
counter needs to eventually become. It is true that we could pick an arbitrary number, 
but a better method is the one used in this routine. This method is still a loop, since 
the computer is instructed to follow the instructions down to line 470 and then go 
back to the instruction at line 420 and do everything over again. What gets us out 
of this loop? The status function does when it executes as the end of the file is 
encountered. When this loop is finished, we should have the values we want from 
the file and can proceed to the display routine. 

These math programs provide additional file handling techniques, as well as a 
set of useful drill and practice programs. The menu program uses the same method 
we have been using to display a set of choices and then run the appropriate program. 
Apart from file handling, the math programs also have some programming tech- 
niques that might prove interesting. 

To conclude this chapter, I have added two other programs that make use of 
file handling and fit our purpose of demonstrating filing techniques. The programs 
are presented in a rough form. Individuals may wish (and, in fact, are encouraged) 
to add parts to these programs or modify the format. The final programs present 
an elementary method of drill and practice on any subject. 

With the exception of the menu program and its associated lines in the various 
math programs, these math programs can be adapted to tape use by changing all 
lines that open a disk file. The programs are of moderate size and will require some 
time to load from tape. In fact, because the Commodore-64 uses a serial process 
for its disk access (where information is fed from the computer to the disk one 
piece at a time, similar to character by character) instead of the more common 
parallel process (where information is fed from the computer to the disk in groups, 
similar to word by word rather than character by character), the loading of these 
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programs and the Mailing List System programs can take quite a bit of time. There 
is another significant difference between disk use and tape use. Disk use allows us 
to reduce the time in certain applications even more. The random-access section 
of this book will demonstrate that it is not necessar>' to read in all the data in order 
to display, add to, or change that information. In fact, some might find that the 
applications presented in this sequential access section might better be implemented 
by random access programs. If that is the case for you, I would encourage you to 
make the necessary changes in the Mailing List System and Math System programs 
after reading the random-access section so that you have random-access files instead 
of sequential access files. 

By now, some of you have no doubt found out that certain of these commands 
can be abbreviated and that there are "shortcuts." I have intentionally avoided using 
these abbreviations and shortcuts because my purpose is to make the code as self- 
explanatory as possible. I encourage you to follow the example set in this book, 
but it is not necessary to spell out some of these commands or include the rem 
statements in order for these programs to work. One argument against including 
this expanded code format is that the program will operate faster since each line 
and each character in the line must be interpreted by the command processor. I 
personally have not found a significant difference in speed of operation for file 
application programs once the program has been loaded into the computer. But, 
the inclusion of all the rem statements and unabbreviated code does greatly expand 
the size of the file and, therefore, requires more time to load into the computer. If 
the slowness of the loading process seems to bother you, you might want to redo 
the programs without the rem statements and the unabbreviated code. I would 
suggest that you maintain a copy of the original program becuase I have found that 
a fully documented program is worth a little extra load time. 

In the final chapter on sequential access files, we will take a brief look at the 
possibility of a standard method for storing data so that the data can be used by a 
variety of commercial programs. 



NEW COMMANDS OR TERMS IN THE FOLLOWING 
PROGRAMS 

1. " Raise to the power of the number following this symbol (when used as 
a math function). 

2. RND Generate a random number. 

3. INT Take only the integer portion of the number in parentheses. 

4. LEN Find the length of the string in terms of the number of characters in 
the string. 

5. STR$ Convert the specified number into a string value. 
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6. VAL Give the numeric value of a string. 

7. SGN Returns the signum function. 

8. DEF FN Define a function. This useful command allows a programmer to 
set a single variable equal to a complete equation. 



QUESTIONS 

1. A good rule to follow in deciding what information to save is to save (A) 
everything possible, (B) as little as possible, (C) only what is absolutely nec- 
essary. 

2. True or False: It is possible to delete and rename files from within a program. 

3. True or False: It is never possible to use a variable as a file name. 

4. What type of variable can be used as a file name? 

5. Which BASIC statement retrieves only the integer portion of a number? 

6. Which BASIC statement converts a number into a string? 

7. Which BASIC statement converts a string into a number? 

8. Which BASIC statement can be used to test for the end of a sequential access 
file? 
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ANSWERS 



1. C 

2. True 

3. False 

4. String 

5. INT 

6. STR$ 

7. VAL 

8. STATUS 
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■ Program for MATH. MENU 



100 


rem * 


— math .menu 


sjs * 






110 












120 












130 


rem * 


'"^ — initializa 


tion — 






i 4U 


h ome $ 


= cnr q) t_ i ^ / j : 


rem clr/home 




1 50 


: : c d $ 


= chr$ ( I 1 ) • 


rem cursor 


d 


own 


160 


: : c u $ 


= chr$(145): 


rem cursor 


u 


P 


1 "7 n 
1 / U 


: : c i $ 


= chr*(.ij';: 


rem cursor 


1 


eft 


1 on 

i oU 


: : c r $ 


^ u T li f 9o^. 
= cnr;i)t_ Zy). 


rem cursor 


r 


ight 


190 


: blk$ 


= cnr$(i't4;: 


rem black 






2 00 


: ylw$ 


= chr$(158): 


rem yellow 






210 


: w h t $ 


= chr $ ( 5 ) : 


rem whi te 






2 20 


: rvs$ 


= chr$( 18): 


rem reverse 




video 


2 30 


• 










o /, n 
/ 4U 


poke 


_>jzoU,i't:rera 


border = It 




blue 


Z Z>U 


poke 


DO / / Z y Z J , T em 


upper /lower 




case 


c r\ 


poke 


332o i , D : rem 


set bkgrd t 





blue 


z / U 












Z cJU 












J u u 


r e ni ^ 


* — menu — 








S 1 
_) i u 


CD — 


10:rem tab va 


lue-10 spaces rt. 


J z U 


print 


horae$:rem cl 


r / h o m e 








print 


wht$ ; 








3 4 U 


print 


tab( tb ) 








5 50 


print 


r vs$ ; 








560 


print 


"MATH PROGRAM MENU" 






5 70 


print 










580 


print 


y lw$ 








590 


print 


tab(tb) 








600 


print 


"1. ADDITION 


n 






610 


print 


rprint tab(tb) 






D Z 


print 


"2. SUBTRACTION" 






c o r\ 


print 


".print tab(tb) 






/, C\ 
D 4U 


print 


"3. MULTIPLICATION" 






u 3U 


print 


:print tab(tb) 






A n 
D U 


print 


"4. DIVISION 


t! 






A 7 n 
D / U 


print 


:print tab(tb) 






A Q n 
D o U 


print 


"5. SCORES" 








o n 

D y u 


print 


:print tab(tb) 






7 n n 


print 


"6. INFORMATION" 






7 1 n 


print 


:print tab(tb) 






7 n 
/ z U 


print 


"7. LIST OF 


FILES" 






7 30 


print 


:print tab(tb) 






7 / n 
/ 4 U 


print 


"8. END" 










print 


.•print tab(tb) 






7 A n 


poke 


19,32:rem disable input 


7 




770 


input 


"Which Program Number? 


n 


; nu$ 


780 


nurabe 


r = val(nu$) 








790 












800 


if nu 


mber = 1 then 


1000 






810 


if number = 2 then 


2000 






820 


if number = 3 then 


3000 






830 


if number = 4 then 


4000 
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840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

1000 

1010 

1020 

1030 

1040 

1050 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 

4030 

4040 

4050 

5000 

5010 

5020 

5030 

5040 

5050 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 



if 
if 
if 
if 



number = 
number = 
number = 
number = 



5 


then 


5000 


6 


then 


6000 


7 


then 


7000 


8 


then 


8000 



rem -^-incorrect choice message-'l' 
print : print : print tab(tb) 
print rvs$;" Incorrect Choice!" 
printtprint tab(tb) 

print "Press "; wht$ ; "RETURN" ; ylw$ ; ' 
gosub 19030;rera return key routine 
goto 500:rera menu--check again 



to continue:"; 



rem * * 


— math . add — * * 






f ile$ 


= "MATH. ADD" 






gosub 


17000:rem new prog 


ram 


routine 


""math 


.add":rem load & run 




rem * * 


--math. subtract--* 






f ile$ 


= "MATH. SUBTRACT" 






gosub 


17000:rem new prog 


ram 


routine 


' "math 


. subtract ":rem load & 


run 


; 

rem * * 


— math. multiply--* 






f ile$ 


= "MATH. MULTIPLY" 






gosub 


17000:rem new program 


routine 


' "math 


. mu 1 t i p 1 y " : r em load & 


run 


: 

rem * * 


— math . divide--** 






f ile$ 


= "MATH. DIVIDE" 






gosub 


17000:rera new prog 


ram 


routine 


" "math 


.di.vide":rem load 


& run 


rem * * 


--math. scores--** 






f i 1 e $ 


= "MATH .SCORES" 






gosub 


17000:rem new prog 


ram 


routine 


' "math 


.scores" :rem load 


& run 


rem * * 


— information--** 






print 


home$:rem clr/home 






print 


"This is a series 


of 


math drill and" 


print 








print 


"practice programs 


. It is designed to" 


print 








print 


"allow for as much 


f 1 


exibility as pos-" 


print 








print 


"sible. The question 


about the number of" 


print 








print 


"digits might, at 


first, seem confusing." 


print 
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6120 print "The question simply asks for the great- 
6130 print 

6140 print "est number of digits possible in either 
6150 print 

6160 print "figure. The next two questions further" 
6170 print 

6180 print "allow you to limit the possible prob-" 
6190 print 

6200 print "leras. For example, if you wanted to" 
6210 print 
6220 : 

6230 gosub 19000:rera return key routine 
6240 : 

6250 print "practice multiplying by '5', you could" 
6260 print 

6270 print "choose three digit numbers and then" 
6280 print 

6290 print "answer with a '5' for each of the next" 
6300 print 

6310 print "two questions. You would then be given" 
6320 print 

6330 print "problems like: 345 x 5 or 823 x 5." 
6340 print 

6350 print "Another example would be to add two" 
6360 print 

6370 print "digit numbers by answering the ques-" 
6380 print 

6390 print "tions in this way: 
6400 print 

6410 print tab(tb):print "How many digits--2" 
6420 print 

6430 print t ab ( t b ) : pr in t "Largest number--99" 
6440 print 

6450 print tab( tb ): print "Smallest number--!" 
6460 print 
6470 : 

6480 gosub 19000:rem return key routine 
6490 : 

6500 print "You could then get problems like:" 
6510 print 

6520 print t ab ( t b ) : pr i n t "58 + 34 or 87 + 9." 
6530 print 

6540 print "Trying the different possibilities will 
6550 print 

6560 print "soon indicate the flexibility." 

65 70 print 

6580 print " The division section will only" 

6590 print 

6600 print "offer problems that come out even. You" 
6610 print 

6620 print "may have to wait a short time for the" 
6630 print 

6640 print "next problem. This is because the nura-" 
6650 print 

6660 print "bers generated must meet certain spec-" 
6670 print 
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6680 print "ifications. The process speeds up when" 
6690 print 
6700 : 

6710 gosub 19000:rem return key routine 
6720 : 

6730 print "the number being divided contains at" 
67A0 print 

6750 print "least two more digits than the divisor." 
6760 print 

6770 print " This is not a professional program" 

6780 print 

6790 print "and, therefore, does not do a lot of" 
6800 print 

6810 print "error checking. You can crash the pro-" 
6820 print 

6830 print "grams with confusing answers or mis-" 
68'iO print 

6850 print "takes in typing. These programs were" 
6860 print 

6870 print "done mainly to demonstrate, in a useful" 
6880 print 

6890 print "manner, certain file handling capabil-" 

6900 print 

6910 print "ities and techniques." 

6920 print 
6930 : 

6940 gosub 19000:rem return key routine 
6950 : 

6960 goto 500 
6970 : 
6980 : 

7000 rem ** — list of files routine--** 
7010 print home$:rem clr/home 
7020 @"$" 

7030 print c u $ ; ch r $ ( 1 3 ) : r em 13 = rtn 

70A0 print "Are you ready to return to the menu?" 

7050 print 

7060 gosub 18000:rem y/n input routine 
7070 if yes$ = "y" then 500:rem menu 
7080 goto 7000:rem check again 
7090 : 
7100 : 

8000 rem ** — end routine--** 

8010 poke 19,0:rem restore input prompt 

8020 print home$:rem clr/home 

8030 cd = 5:rera 5 lines down 

80A0 gosub 9000: rem crsr down routine 

8050 print tab(tb - 5) 

8060 print rvs$; 

8070 print "That's all for this session!" 
8080 p r i n t : pr i n t : p r i nt 
8090 print tab(tb) 
8100 print rvs$; 

8110 print "See you next time." 
8120 print ylw$ 

8130 cd = 10:rem 10 lines down 
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81A0 

8150 

8160 

8170 

9000 

9010 

9020 

9030 

90A0 

9 5 (.) 

9060 

1 7000 

17010 

1 7 20 

1 7030 

1 7040 

170 50 

1 7060 

1 7070 

1 7080 

1 7090 

1 7 ] 00 

17110 

1712 

17130 

1 7140 

17150 

17 160 

17170 

1 7180 

17190 

1 7 200 

17210 

1 7220 

1 7230 

17240 

1 72 50 

1 7260 

17270 

1 8000 

18010 

18020 

18030 

1 8040 

180 50 

1 8060 

18070 

18080 

18090 

18100 

18110 

18120 

19000 

19010 

19020 



gosub 9000:rein crsr down routine 
end 



rem — cursor down routine---"'- 

for i = 1 to cd 

print c d $ ; 

next i 

return 



r e m 
print 
cd = 
gosub 
print 
print- 
print 
print 
gosub 
if ye 
p r i 71 1 
cd = 
gosub 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
poke 
r e t u r 



— n c w pro g ram routine — 
home$:rem clr/horae 

2:rem 2 lines down 
9000:rera crsr down 
"You have selected 

: p r i n t : p r i n t 
"Is this the program 



routine 

the ";file$:print:prLnt 
you wan t ? " 



program. 



1 8 : r c m y / n input routine 
s$ = "n" then 500:rem menu 

hoinc$:rem clr/horae 
5 : r e m 5 lines down 

9000: rem crsr down routine 

t a b ( t b - 5 ) 

r V s $ ; 

"Please wa i t ! " 
: p r i n t : p r i n t 
tab( tb) 
r V s $ ; 

"I'm loading " 

: p r i n t : p r i n t 
tab(tb + 8) 
r V s $ ; 

f ile$ 

19,0:rem restore input prompt 
n 



rem * * - - y / n input routine — * * 

print "Type a " ; wh t $ ; " Y " ; y 1 w $ ; " or " ; wh t $ ; " N " ; y 1 w$ ; " : " ; 
poke 19,3 2:rcm disable input ? 
i n p u t y o s $ 
p r i n t 

if yes$ = "y" or yes$ = "Y" then yes$ = "y": return 
if yos$ = "n" or yes$ = "N" then yes$ = "n": return 

p r i n I 

print r V s $ ; " 1 n c o r r e r t C h o i c e ! " ; y 1 w $ 
p r i n t 

goto 18000:rem check again 



rem ** --return key routine--** 
print 

print "Press "; wht $; "RETURN" ; y lw$ ; " to continue:"; 
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19030 poke 198,0:rera clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0:rera no value 
19060 next i 

19070 X = peek( 1 97 ) : rem store key press 
19080 if X = 1 then 19100 
19090 goto 19070: if not 1 go back 
19100 poke 198,l:re[n allow 1 for cursor 
19110 poke 631,0:rem clr kbrd 



1912 n u $ 



:rera clr string variable 



19130 
19140 



print homej 
return 



;rem clr/horae 



ready . 
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■ Program for MATH. ADD 



100 


rem 




'i' a H n t" n r» n 

C1UUJ.L-LU11 — 




110 










120 










130 


rem 




H nn a1 "i 

J_I1X L-Lcl-LXZja 


tion--** 


1 A n 


home$ 


— /-ViT-tMAT^' 

— cnr4)^i4/^. 


rem cir/nome 


1 J u 


: :cd$ 


— cni^i^ Li), 


rem cursor down 


i u 


: : c u 


$ 


= cnr4)i^iHjj; 


rem cursor up 


1 /U 


: :cl$ 


= c nr ^ { L D / ) I 


rem cursor left 


180 


: : cr 


$ 


= chr$( 29): 


rem cursor right 


190 


: blk$ 


= chr$ ( 1 44 ) : 


rem black 


200 


: ylw$ 


= chr$( 158) : 


rem yellow 


210 


: wht$ 


= chrS( 5) : 


rem white 


2 20 


: r V s S 


= c h r $ ( 18): 


rem reverse video 


2 2 5 


: b n k $ 


= chr$ ( 10): 


rem blank line 


2 26 


: b r n 


$ 


= c h r $ ( 1 4 9 ) : 


rem brown 


2 2 7 


; b u e 


$ 


= c h r $ ( 31): 


rem blue 


Z J U 










7 AO 

Z *4 U 


■ , 

poke 


53280, 14: rem 


border = It. blue 


Z D u 


poke 


53272, 23:rem 


upper/lower case 


2 60 


poke 


53281, 7:rem 


set bkgrd to ylw 


9 6? 

Z. U 


dim 


s$( 100) , dt ( 100) , cr( 100) , wr( 100) 


z, u o 


t b = 


5 


: rem tab value 


265 










z u o 










9 7 n 


rem 




--variable list--** 


9 ft 


rem 


a 


= top number 


9 R 1 
Z o i 


rem 


b 


= bottom number 


9 P 9 


rem 


c 


= correct a 


nswer 


Z O J 


rem 


d 


= student's 


answer 


9 R A 
Z O '+ 


rem 


q' 


= counter 




2 85 


rem 


w 


= previous 


a n s wer 


286 


rem 


z 


= number of 


tries 


9 ft 7 
z o / 


rem 


c r 


= # of corr 


ect answers 


9 R R 
Z c3 o 


rem 


wr 


= # of wron 


g answers 


9 R Q 

z y 


rem 


dt 


= # of digi 


ts 


9 Q n 


rem 


da 


= # of digi 


t s in a 


9 Q 1 

z y i 


rem 


db 


= # of digi 


ts in b 


9 Q 9 

Z *7 z 


rem 


dc 


= # of digi 


t s in c 


9 Q 

Z 7 J 


rem 


dm 


= # of digi 


ts in max amnt 


9 Q /i 


rem 


other variable 


s are descriptive 


9 Q 
Z ^7 D 










296 










9 Q 7 
Z 7 / 










400 


rem 




— request user info.--** 


410 


print 


brn$:rera brown text/ylw bkgrd 


/■ 9 n 
4- z u 


poke 19,32:rem disable input ? 


A30 


rem 


clr/home — cursor down 3 


440 


print 


home$ : cd = : 


:gosub 9000 


450 


input 


"How many digits? ";digit$ 


460 


print : 


p r i n t : p r i n t 


largest figure f 
are adding by? "; 


470 


print 


"What is the 


480 


input 


"number you 


490 


print : 


print:print 
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500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 



val ( raax$ ) : mn = val(mn$) 



print "What is the smallest figure for the' 
input "number you are adding by? ";mn 
dt = val ( d i gi t $ ) : max 
digit = val(digit$) 
digit = 10 ' digit 
print : print : print 

input "What is your name? ";name$ 



rem convert to lowercase 
cv$ = name$ 

gosub 7000:rera lowercase subroutine 



rem — create problem--** 

dm = len ( raax$ ) 

rem when b's digits < dt 

if dt = dm + 1 or dt < dm + 1 then 750 

dm = 10 ' dm 

b = int(rnd(0) * dm) 

if b < mn then 700 

if b > max then 700 

goto 800:rem get # for a 

z = 1 

b = int(rnd(0) * digit) 
if b < mn then 760 
if b > max then 760 

a = int(rnd(0) * digit) 

rem *-answer-* 
c = a + b 

s$ = "+":rera determine operation 
sn$ = "addition" 

if c < then 760:rera for subtract, 
if c = w then 760:rera previous ans. 
w = c 



rem **--display problem 
rem determine lengths 

a$ = str$(a) 

da = len(a$) 

a$ = right$(a$,da 

da = len ( a$ ) 

b$ = str$( b) 

db = len(b$) 

b$ = right$(b$,db 

db = len(b$) 

c$ = str.$(c) 

dc = len(c$) 

c$ = right$(c$,dc 

dc = len(c$) 



1 ) : rem no sign 



l):rera no sign 



1) 



rem no sign 
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1150 
1 160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3000 
3010 
3020 
3030 
3040 

184 



rem format 

print home$:rem clr/home 

print tab(tb + 2) rvs$;nc$;"'s ";sn$;" practice." 
cd = 3:gosub 9000:rem crsr down 3 
print tab(4) 

print "Type the word " ; blk$ ; "END" ; brn$ ; " when finished!" 

cd = 5:gosub 9000: rem crsr down 5 

print tab(22 - da):print a$ 

print tab(22 - (db + l)):prlnt s$;b$ 

rem draw line 
q = 1 

if da > db then q = 
print tab(22 - (dt + q)) 
for i = 1 to (dt + q) 
print "-"; 
next i 



rem — get answer — ** 
print 

print tab(22 - do) 
input answer$ 

if answers = "END" or answer$ = "end" then 2000 

d = val(answer$) 

if d = c then 5000:rem correct 

if z < 3 then 6000:rem wrong 

rem give answer after 3 tries 

p r i n t : pr i n t : pr i n t : pr i n t tab(8) 

print "No, the answer is ";bue$;c;brr\$ 

pr i n t : pr i n t : pr i n t tab(8) 

print a;" " ; s$ ; " ";b;" = ";c 

pr i n t : pr i nt : z = l:wr = wr + 1 

print tab(8) 

print "Press "; blk$ ; "RETURN "; b r n $; " to continue: "; 
gosub 19000:rem return key routine 
goto 630: rem another problem 



rem ** --total routine--** 
rem clr/home — cursor down 5 
print horae$:cd = 5:gosub 9000 
print tab(8) 

print "You g o t " ; bu e$ ; c r ; b r n $ ; "r i ght ! " 
print:print tab(8) 

print "You missed" ; bue$ ; wr ; brn$ ;". " 



rem **--file input/output--** 

rem * - u s e r message-* 

poke 19,0: rem reset input prompt 

cd = 5: gosub 9000:rem crsr down 5 
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3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 



print tab(8) 
print rvs$; 

print "UPDATING FILES." 
print : print : print tab(8) 
print rvs$;"PLEASE WAIT!" 

rem **--file input routine--** 
k = 1 

open 3,8,3,cv$ + ",seq,read" 

input#3 , s$ ( k ) : rem sign 

input#3 , dt ( k ) : rem # of digits 

input#3,cr(k):rem # of correct 

i n p u t # 3 , wr ( k ) : rem # of wrong 

if status = then k = k + 1 : goto 3140 

if status = 64 then k = k + 1 

rem status = 0--all ok 

rem status = 64--eof 

rem. status not or 64--lst use 

s$(k) = s$:dt(k) = dt: cr(k) = cr:wr(k) = wr 
close 3 



rem ** — file output routine--** 

open 4, 8, A, "00:" + cv$ + ",seq, write" 

for i = 1 to k 

pr in t #4 , s$ ( i ) : r em sign 

print#4 , dt ( i ) : rem # of digits 

pr i n t #4 , c r ( i ) : r em # of correct 

pr i nt #4 , wr ( i ) : rem # of wrong 

next i 

close 4 



rem ** — return to program menu — ** 
poke 19,0:rem restore input prompt 
rem clr/home cursor down routine 
print home$:cd = 5:gosub 9000 
print tab(tb) 
print r vs$ ; 

print "LOADING THE MATH MENU PROGRAM" 
" "math . menu" 



rem ** — correct answer routine — ** 

cd = 5:gosub 9000:rera crsr down 5 

print:print tab(18) 

print "GOOD!" 

for i = 1 to 1000:next i 

c r = c r + 1 

goto 630:rem another problem 
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6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

19000 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19080 

19090 

19100 

19110 



rem — wrong answer routine- - 
cd = 5:gosub 9000:rem crsr down 5 
print:print tab(8) 

"No, Please try again." 
+ 1 



print 
z = z 
print 
for i 



1 to 1000:next i 



goto 1150:rem ask again 



rem — convert to lowercase--** 

for cv = 1 to len(cv$) 

X = asc(raid$(cv$,cv,l)) 

if X > 192 then x = x - 128 

nc$ = nc$ + chr$(x) 

nex t c V 

cv$ = nc$ 

f = asc(left$(cv$, 1)) 
f = f + 128 

nc$ = chr$(f) + r i gh t $ ( c v $ , 1 en ( c v $ ) 
return 

rem na$ = originally typed name 
rem cv$ = converted to lowercase 
rem nc$ = 1st 1 e t t er / u pper case 



rem — cursor down routine — 

for i = 1 to cd 

print cd$; 

next i 

return 



rem **--return key routine--** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 
next i 

X = pe ek ( 1 9 7 ) : r em store key press 

if X = 1 then 19080:rem 1 = rtn, 

goto 19050:if not 1 go back 

poke 198,l:rem allow for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rem clr string variable 

return 



ready , 
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■ Program for MATH. SUBTRACT 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
226 
227 
230 
240 
250 
260 
262 
263 
265 
266 
270 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 



rem * 




— s u b t 


raction-- 




rem * 




- i n i t i 


alization 




1 o me $ 




chr$( 


147) 


rem 


clr/home 


: : cd$ 


_ 


chr$( 


17) 


rem 


cursor down 


: : cu$ 


_ 


chr$( 


1 45) 


rem 


cursor up 


: : cl$ 


_ 


c h r $ ( 


1 57) 


rem 


cursor left 


: : c r $ 




c h r$ ( 


29) 


rem 


cursor right 


: b 1 k S 




c h r $ ( 


144) 


rem 


black 


: ylw$ 




chr$ ( 


158) 


rem 


yellow 


: wht$ 




chr$ ( 


5) 


rem 


white 


: r V s $ 




chr $ ( 


18) 


rem 


reverse video 


: bnk$ 




chr $ ( 


10) 


rem 


blank line 


: brn$ 




c h r $ ( 


149) 


rem 


brown 


: bue$ 




chr $ ( 


31) 


rem 


blue 


poke 


53280, 14 


: rem 


border = It. blue 


poke 


53272 , 23 


: rem 


upper/lower case 


poke 


53281, 7 


: rem 


set 


bkgrd to ylw 



dim s$(100),dt(100),cr(100),wr(100) 



tb = 


5: 


rem tab value 


rem 




- V 


a r i a b 1 e list--** 


rem 


a 




top number 


rem 


b 




bottom number 


rem 


c 




correct answer 


rem 


d 




student's answer 


rem 


q 




counter 


rem 


w 




previous answer 


rem 


z 




number of tries 


rem 


c r 




# of correct answers 


rem 


wr 




# of wrong answers 


rem 


dt 




# of digits 


rem 


da 




# of digits in a 


rem 


db 




# of digits in b 


rem 


dc 




# of digits in c 


rem 


d m 




# of digits in max amnt 


rem 


other 


variables are descriptive 



rem ** — request user info. — ** 
print brn$:rem brown text/ylw bkgrd 
poke 19,32:rem disable input ? 
rem clr/home — cursor down 3 
print home$:cd = 3:gosub 9000 
input "How many digits? ";digit$ 
print:print:print 

print "What is the largest figure for the" 
input "number you are subtracting by? ";max$ 
print : print : print 
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500 print "What is the smallest figure for the" 
510 input "number you are subtracting by? ";ranS 
520 d t = va ] ( d i g i t $ ) : ma X = val(max$):mn = val(mn$) 
530 digit = val(digit$) 
540 digit = 10 " digit 

5 50 print:print: print 

560 input "What is your name? " ; name$ 
570 : 

580 rem convert to lowercase 
590 cv$ = name$ 

600 gosub 7000: rem lowercase subroutine 
610 : 
620 : 

630 rem * * - - c r e a t e problem--* * 
640 : 

6 5 dm = 1 e n ( m a X $ ) 
660 : 

670 rem when b's digits < dt 

680 if dt = dm + 1 or dt dm + 1 then 750 

690 dm = 10 " dm 

700 b = int(rnd(()) * dm) 

710 if b < mn then 7 00 

720 if b > max then 700 

730 goto 800: rem get ft for a 

740 : 

7 50 / = 1 

7 60 b = i nt ( rn(l( 0) - digit) 
770 if b <r mn t hen 760 
780 if b > max then 7 60 
790 : 

800 a = i nt ( rnd ( 0) * digit) 
810 : 

820 rem * -answer-* 
830 c = a - b 

840 s$ = "-":rem determine operation 
850 sn$ = "subtraction" 

860 if c < then 760:rem for subtract. 
870 if c = w then 760:rem previous ans. 
880 w = c 
890 : 
900 : 

1000 rem **--disi)lay problem--** 
1010 rem determine long t h s 
10 20 a$ = slr$(a) 
1030 da = len(a$) 

1040 a$ = right$(a$,da - 1 ) : rem no sign 
1050 da = len(a$) 
1060 b$ = str$(b) 
1070 db = l(Mi(hS) 

1080 b$ = righi$(b$,db - 1 ) : rem no sign 
1090 db = len(b$) 
1100 c$ = strS(r) 
1110 (i c = 1 e n ( c $ ) 

112 c $ = r i g h t S ( c $ , (1 c - 1 ) : r e m no sign 
1 130 dc = len(c$) 
1 140 : 
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1 150 
1 160 
1 170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1 3 00 
1310 
1320 
1330 
1500 
1510 
15 20 
15 3 
15A0 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3000 
3010 
3020 
3030 
3040 



down 



' ; sn$ ; 

3 



rem format 

print home$:rem clr/home 
print tab(tb + 1) rvs$;nc$ 
cd = 3:gosub 9000: rem crsr 
print tab(4) 

print "Type the word " ; blk$ ; "END" ; brn$ ; 
cd = 5:gosub 9000:rem crsr down 5 
print tab(22 - da):print a$ 
print tab(22 - (db + l)):print s$;b$ 



practice, 



when finished!" 



draw 
1 



line 



if da 


> db th 


en q = 





print 


tab( 22 


- (dt 


+ 


for i 


= 1 to 


(dt + 


q) 


p r i n t 


* 






next i 








rem * * 


— get a 






print 








print. 


t a b ( 2 2 


- dc) 




input 


a n s w e r $ 







q)) 



if 


a n s 


wer$ = 


d = 


V a 


1 ( answe 


if 


d = 


c then 


if 


z < 


3 then 



'END' 



or answer; 



'end" then 2000 



rem give answer after 3 tries 

pr i n t : pr i n t : pr i nt : pr i n t tab(8) 

print "No, the answer is " ; bue$ ; c ; brn$ 

print:print:print tab(8) 

print a;" ";s$;" ";b;" = ";c 

p r i n t : pr i n t : z = 1 : wr = wr + 1 

print tab(8) 

print "Press "; blk$ ; "RETURN" ; brn$ ; " to continue: 
gosub 19000:rem return key routine 
goto 630:rem another problem 



rem ** — total routine — ** 
rem c 1 r /home--cur sor down 5 
print home$:cd = 5:gosub 9000 
print tab(8) 

print "You go t";bue$;cr;brn$;" right!" 
print:print tab(8) 

print "You missed" ; bue$ ; wr ; brn$ ;". " 



rem **--file input/output — 

rem '''--user message-* 

poke 19,0:rem reset input prompt 

cd = 5:gosub 9000:rera crsr down 5 
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3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
31A0 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3 240 
3250 
3260 
3270 
3280 
3300 
3310 
3320 
3330 
33A0 
3350 
3 360 
33 70 
3380 
3390 
3400 
3410 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 

190 



print tab(8) 
print rvs$; 

print "UPDATING FILES." 
pr i n t : pr i n t : pr i n t tab(8) 
print rvs$;"PLEASE WAIT!" 

rem **--file input routine — ** 
k = 1 

open 3,8,3,cv$ + ",seq,read" 

input#3,s$(k):rem sign 

i npu t #3 , d t ( k ) : r em # of digits 

i npu t # 3 , c r ( k ) : r em # of correct 

input#3 , wr ( k ) : rem # of wrong 

if status = then k = k + l:goto 3140 

if status = 64 then k = k + 1 

rem status = 0--all ok 

rem status = 64--eof 

rem status not or 64 — 1st use 

s$(k) = s$:dt(k) = dt: cr(k) = cr:wr(k) = wr 
close 3 



rem **--file output routine — ** 

open 4,8,4,"@0:" + cv$ + ",seq, write" 

for i = 1 to k 

pr i n t #4 , 8$ ( i ) : r em sign 

print#4,dt(i):rem # of digits 

print#4,cr(i):rein # of correct 

pr i n t #4 , wr ( i ) : r em # of wrong 

next i 

close 4 



rem --return to program menu--** 
poke 19,0:rem restore input prompt 
rem clr/horae cursor down routine 
print home$ : cd = 5:gosub 9000 
print tab(tb) 
print rvs$; 

print "LOADING THE MATH MENU PROGRAM" 
* "mat h . men u " 



rem **--correct answer routine--** 

cd = 5:gosub 9000:rem crsr down 5 

print:print tab(18) 

print "GOOD!" 

for i = 1 to 1000:next i 

c r = c r + 1 

goto 630:rem another problem 
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6000 rem -''-■'--wrong answer routine--** 

6010 cd = 5:gosub 9000:rem crsr dcrfn 5 

6020 print:print tab(8) 

6030 print "No, Please try again." 

6040 z = z + 1 

60 5 print 

6060 for i = 1 to 1000:next i 
6070 goto 1150:rem ask again 
6080 : 
6090 : 

7000 rem ** — convert to lowercase — ** 

7010 for cv = 1 to len(cv$) 

7020 X = asc(mid$( cv$, cv , 1 ) ) 

7030 if X > 192 then x = x - 128 

70A0 nc$ = nc$ + chr$(x) 

7050 next cv 

7060 : 

7070 cv$ = nc$ 

7080 f = BSC ( 1 ef t$( cv$, 1 ) ) 

7090 f = f + 128 

7100 nc$ = chr$(f) + r i ght $ ( c v$ , len ( c v$ ) - 1) 
7110 return 
7120 : 

7130 rem na$ = originally typed name 
7140 rem cv$ = converted to lowercase 
7150 rem nc$ = 1st 1 etter /upper case 
7160 : 
7170 : 
7180 : 

9000 rem ** --cursor down routine — ** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

9070 : 

19000 rem ** — return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i ,0:rem no value 
19040 next i 

19050 X = pe ek ( 1 97 ) : rem store key press 
19060 if X = 1 then 19080:rem 1 = rtn. 
19070 goto 19050:if not 1 go back 
19080 poke 198,l:rem allow for cursor 
19090 poke 631,0:rem clr kbrd 
19100 nu$ = "":rera clr string variable 
19110 return 

ready. 
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■ Program for MATH.MULTIPLY 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
226 
227 
230 
240 
250 
260 
262 
263 
265 
266 
270 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

192 



rem *** — multiplication — *** 



rem * 




-initialization 




1 m e ^) 




chr$ ( 


147) 


rem 


c 1 r / home 


: : cd$ 


_ 


chr$ ( 


17) 


rem 


cursor down 


: : cu$ 




chr$( 




rem 


cursor up 


. ; C 1 cp 




chr$( 






cursor left 


; . c r vj) 




chr$ ( 


29) 


rem 


cursor right 


: blk$ 




chr$ ( 


144) 


rem 


black 


: ylw$ 




chr $ ( 


158) 


rem 


yellow 


: wht$ 




chr$ ( 


5) 


rem 


white 


: rvs$ 




chr$( 


18) 


rem 


reverse video 


: bnk$ 




chr$ ( 


10) 


rem 


blank line 


: brn$ 




chr$( 


149) 


rem 


brown 


: bue$ 




chr$ ( 


31) 


rem 


blue 


Doke 


53280, 14 


: r em 


bord 


er = It. blue 


poke 


53272,23 


: rem 


uppe 


r/lower case 


3oke 


53281, 7 


: rem 


set 


bkgrd to ylw 



dim s$(100),dt(100),cr(100),wr(100) 



tb = 


5 


: rem 


tab value 


r e m 




--variable list — ** 


rem 


a 




top number 


r e m 


b 




bottom number 


rem 


c 




correct answer 


rem 


d 




student's answer 


rem 


q 




counter 


rem 


w 




previous answer 


rem 


z 




n 


umber of tries 


rem 


c r 




# 


of correct answers 


rem 


wr 




# 


of wrong answers 


rem 


dt 




# 


of digits 


rem 


da 




# 


of digits in a 


rem 


db 




# 


of digits in b 


rem 


dc 




# 


of digits in c 


rem 


dm 




# 


of digits in max amnt 


rem 


other 




variables are descriptive 



rem **--request user info,--** 
print brn$:rem brown text/ylw bkgrd 
poke 19,32:rem disable input ? 
rem clr/home — cursor down 3 
print home$:cd = 3:gosub 9000 
input "How many digits? ";digit$ 
print : print : print 

print "What is the largest figure for the" 
input "number you are multiplying by? ";max$ 
print. -printrprint 
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500 print "What is the smallest figure for the" 
510 input "number you are multiplying by? ";mn$ 
520 dt = V a 1 ( d i gi t $ ) : max = va 1 ( ma x $ ) : mn = val(mn$) 
530 digit = val(digit$) 
540 digit = 10 ' digit 
550 pr i n t : p r i n t : pr i n t 

560 input "What is your name? ";name$ 
570 : 

580 rem convert to lowercase 
590 cv$ = name$ 

600 gosub 7000:rem lowercase subroutine 
610 : 
620 : 

630 rem — create problem--** 
640 : 

650 dm = len(max$) 
660 : 

670 rem when b's digits < dt 

680 if dt = dm + 1 or dt < dm + 1 then 750 

690 dm = 10 ' dm 

700 b = int(rnd(0) * dm) 

710 if b < mn then 700 

720 if b > max then 700 

730 goto 800:rem get # for a 

740 : 

750 z = 1 

760 b = int(rnd(0) * digit) 
770 if b < mn then 760 
780 if b > max then 760 
790 : 

800 a = int(rnd(0) * digit) 
810 : 

820 rem *-answer-* 
830 c = a * b 

840 s$ = "x":rem determine operation 

850 sn$ = "multiplication" 

860 if c < then 760:rem for subtract. 

870 if c = w then 760:rem previous ans. 

880 w = c 

890 : 

900 



1000 rem **--display problem--** 
1010 rem determine lengths 



1020 


a$ 




str$(a) 










1030 


da 




len(a$) 










1040 


a$ 




right$(a$ ,da 


- 1): 


; rem 


n 


sign 


1050 


da 




len(a$) 










1060 


b$ 




str$( b) 










1070 


db 




len(b$) 










1080 


b$ 




right$( b$ , db 


- 1): 


: rem 


no 


sign 


1090 


db 




len(b$) 










1 100 






str$(c ) 










1110 


dc 




len(c$) 










1 120 


c$ 




r ight $ ( c$ , dc 


- 1) 


: rem 


no 


sign 


1 130 


dc 




len( c$ ) 











1140 : 
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1150 
1 160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1 500 
1510 
1520 
1 530 
1 540 
15 50 
1 560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3000 
3010 
3020 
3030 



194 



rem format 

print hoiiie$:rem clr/home 

print tab(tb - 1) rvs$;nc$;"'s ";sn$;" practice." 
cd = 3:gosub 9000:rem crsr down 3 
print tab(4) 

print "Type the word " ; blk$ ; "END" ; brn$ ; " when finished! 

cd = 5:gosub 9000:rem crsr down 5 

print tab(22 - da): print a$ 

print tab(22 - (db + l)):print s$;b$ 



rem draw line 






q = 1 






if da > db th 


en q 


= 


print tab(22 


- (dt 


+ q)) 


for i = 1 to 


(dt + 


q) 


print "-"; 




next i 






rem * — get a 


nswer 




print 






print tab(22 


- dc) 




input answer$ 






if answer$ = 


"END" 


or answer$ 


d = val ( answe 


r$) 




if d = c then 


5000 


:rem correct 


if z < 3 then 


6000 


: rem wrong 



"end" then 2000 



rem give answer after 3 tries 

pr i n t : pr i n t : pr in t : pr i n t tabfS) 

print "No, the answer is " ; bue$ ; c ; brn$ 

pr i n t : pr i n t : p r i n t tab(8) 

print a;" ";s$;" ";b;" = ";c 

pr int : print : z = l:wr = wr + 1 

print tab(8) 

print "Press "; b lk$ ; "RETURN" ; brn $; " to continue; 
gosub 19000:rem return key routine 
goto 630:rera another problem 



rem ** --total routine — ** 
rem clr/home — cursor down 5 
print home$:cd = 5:gosub 9000 
print tab(8) 

print "You go t " ; b ue $ ; c r ; brn$ ; " r ight ! " 
print:print tab(8) 

print "You missed" ; bue$ ; wr ; brn$ ;". " 



rem **--file i n pu t /ou t p u t- -** 

rem *-user message-* 

poke 19,0:rem reset input prompt 



CHAPTER EIGHT 



3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 



cd = 5:gosub 9000:rem crsr down 5 
print tab(8) 
print rvs$; 

print "UPDATING FILES." 
pr i n t : pr i n t : pr i n t tab(8) 
print rvs$;"PLEASE WAIT!" 

rem — file input routine--** 
k = 1 

open 3,8,3,cv$ + ",seq,read" 

i n pu t # 3 , s$ ( k ) : r em sign 

input#3 , d t ( k ) : rem # of digits 

i n pu t # 3 , c r ( k ) : rem # of correct 

input#3 , wr ( k ) : rem # of wrong 

if status = then k = k + l:goto 3140 

if status = 64 then k = k + 1 

rem status = 0--all ok 

rem status = 64--eof 

rem status not or 64--lst use 

s$(k) = s$:dt(k) = dt: cr(k) = cr:wr(k) = wr 

close 3 



rem -''-''--file output routine — ** 

open 4,8,4,"@0:" + cv$ + ",seq, write' 

for i = 1 to k 

pr i n t # 4 , s $ ( i ) : r em sign 

pr i n t #4 , d t ( i ) : rem # of digits 

p r i n t # 4 , c r ( i ) : r em # of correct 

pr i n t #4 , wr ( i ) : r em # of wrong 

next i 

close 4 



rem ** — return to program menu--** 
poke 19,0:rem restore input prompt 
rem clr/home cursor down routine 
print horae$:cd = 5:gosub 9000 
print tab(tb) 
print rvs$; 

print "LOADING THE MATH MENU PROGRAM" 
* "ma t h . menu" 



rem ** --correct answer routine — ** 

cd = 5:gosub 9000:rem crsr down 5 

print:print tab(18) 

print "GOOD!" 

for i = 1 to 1000:next i 

c r = c r + 1 

goto 630:rem another problem 
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5080 : 

6000 rem ** --wrong answer routine-- ** 
6010 cd = 5:gosub 9000:rem crsr down 5 
6020 print:print tab(8) 
6030 print "No, Please try again." 



6040 


z = 


z + 1 


6050 


pr in 


t 


6060 


for 


i = 1 to 1000:next i 


6070 


goto 


1150:rem ask again 


6080 


: 




6090 


: 




7000 


rem 


** — convert to lowercase--** 


7010 


for 


cv = 1 to len(cv$) 


7020 


X = 


asc(mid$(cv$,cv,l)) 


7030 


if X 


> 192 then x = x - 128 


7040 


nc$ 


= nc$ + chr$(x) 


7050 


next 


C V 


7060 






7070 


cv$ 


= nc $ 


7080 


f = 


asc(left$(cv$,l)) 


7090 


f = 


f + 1 28 


7100 


nc $ 


= chr$(f) + right$(cv$,len(cv$) 


7110 


r e t u 


rn 


712 






7 130 


rem 


na$ = originally typed name 


7140 


rem 


cv$ = converted lo lowercase 


7150 


rem 


nc$ = 1st 1 e 1 1 e r / u p per case 


7160 






7170 






7180 






9000 


rem 


** — cursor down routine — ** 


9010 


for 


i = 1 to cd 


9020 


pr in 


t cd$ ; 


9030 


next 


i 



9040 return 
9050 : 
9060 : 
9070 : 

19000 rem **--return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek ( 1 9 7 ) : r em store key press 
19060 if x = 1 then 19080:rem 1 = rtn. 
19070 goto 19050:if not 1 go back 
19080 poke 198,l:reri\ allow for cursor 
19090 poke 631,0:rem clr kbrd 
19100 nu$ = "":rem clr string variable 
19110 return 

ready . 
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■ Program for MATH.DIV/DE 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
226 
227 
230 
240 
250 
260 
26 2 
263 
265 
266 
270 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 



rem ''^ 




— d i V i 


s i n 






rem 




— i n i t i 


alization 


— '.' 


h o m e $ 




Vl r- *c ^ 

c n r cp ^ 


147) 


: r em 


c 1 r / h me 


: . c Q 4> 




c n r ^> 


17) 


: rem 


cursor down 


r r c u $ 




c h r $ ( 


145) 


: rem 


cursor up 


I r c 1 5) 




c n r 5* 


157) 


: rem 


cursor left 


: : c r $ 




c h r $ ( 


29) 


: rem 


cursor right 


: blk$ 




chrS( 


144) 


: rem 


black 


: y lw$ 




chr $ ( 


1 58) 


: rem 


yell ow 


:wht$ 




chr $ ( 


5) 


: rem 


white 


: r V s $ 




chr$( 


18) 


: rem 


reverse video 


: bnk$ 




chr$( 


10) 


: rem 


blank line 


: brn$ 




chr$( 


149) 


: rem 


brown 


: bue$ 




chr$( 


31 ) 


: rem 


blue 



poke 53280, 14 1 rem border = It. blue 
poke 53272, 23:rera upper/lower case 
poke 53281, 7:rem set bkgrd to ylw 
dim s$(100),dt(100),cr(100),wr(100) 
5:rem tab value 



t b 



rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
r o III 
rem 
rem 
rem 
rem 
rem 



a 
b 
c 
d 

q 

w 

z 

c r 
w r 
dt 

da 
d b 
dc 
dm 



-variable list--*'i= 

= divisor 

-- dividend 

= correct answer 

= student's answer 

= counter 

= previous answer 

= number of tries 



of 
of 
of 

of digits 
of d 1 g i t s 
of digits 
of digits 



correct answers 
wrong answers 
digits 

in a 
in b 
in c 

in max arant 



other variables are descriptive 



rem ** — request user info.--** 
print brn$:rem brown text/ylw bkgrd 
poke 19,32:rem disable input ? 
rem clr/home — cursor down 3 
print home$:cd = 3:gosub 9000 
input "How many digits? ";digit$ 
print:print:prlnt 

print "What is the largest figure for the" 
input "number you are dividing by? ";max$ 
print:print:print 
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500 print "What is the smallest figure for the" 

510 input "number you are dividing by? ";mn$ 

520 dt = val(digit$) :max = va 1 ( ma x$ ) : mn = val(mn$) 

530 digit = val(digit$) 

540 digit = 10 ' digit 

5 50 p r i n t : p r i n t : p r i n t 

560 input "What is your name? " ; narae$ 
570 : 

580 rem convert to lowercase 
590 cv$ = namc$ 

600 gosub 7000:rem lowercase subroutine 
610 : 
620 : 

630 rem - -create problem — 
640 : 

650 dm = len(max$) 
660 : 

670 rem when b's digits < dt 

680 if dt = dm + 1 or dt < dm + 1 then 750 

690 dm = 10 ' dm 

700 b = int(rnd(0) * dm) 

710 if b < mn then 700 

720 if b > max then 700 

730 goto 800:rem get # for a 

740 : 

750 z = 1 

760 b = int(rnd(0) * digit) 
770 if b < mn then 760 
780 if b > max then 760 
790 : 

800 a = int(rnd(0) * digit) 
810 if a = or a < b then 800 
820 : 

830 rem -'--answer-* 

840 def fn mod(c) = int((a/b - int(a/b))* b + .05) * sgn(a/b) 
850 c = int(a)/(b) 
860 c = int(c) 

870 s$ = "/":rem determine operation 
880 sn$ = "division" 

890 if c < then 760:rem for subtract. 
900 if c = w then 760:rem previous ans. 
910 if fn mod(rm) <> then 800 
920 w = c 
930 : 
940 : 

1000 rem **--display problem — 
1010 rem determine lengths 
1020 a$ = str$(a) 
1030 da = len(a$) 

1040 a$ = right$(a$,da - l):rem no sign 
1050 da = len(aS) 
1060 b$ = str$(b) 
1070 db = len(b$) 

1080 b$ = right$(b$,db - l):rem no sign 
1090 db = len(b$) 
1 100 c$ = str$(c) 
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1110 
1120 
1 130 
1140 
1150 
1160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1 290 
1500 
1510 
1 520 
1530 
1540 
1550 
1 560 
1570 
1580 
1590 
1600 
1610 
16 20 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1 700 
1710 
1720 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
3000 
3010 
3020 
3030 
3040 



dc = len(c$) 

c$ = r ight $ ( c$ , dc - l):rera no sign 
dc = len(c$) 

rem format 

print horae$:rera clr/home 

print tab(tb + 2) rvs$;nc$;"'s ";sn$;" practice." 
cd = 3:gosub 9000:rem crsr down 3 
print tab(4) 

print "Type the word " ; blk$ ; "END" ; brn$ ; " when finished!" 

cd = 5:gosub 9000:rem crsr down 5 

print tab(18) 

for i = 1 to dt + 1 

print "-"; 

next i 

print 

print tab(18 - db) b$;")";a$ 



rem 




V — get 


pr i 


nt 


: print 


pr i 


nt 


tab( ( 


i n p 


ut 


a n s w e 


if 


a n 


swer $ 


d = 


V 


a 1 ( ans 


if 


d 


= c th 


if 


z 


< 3 th 



+ da) - (dc - 1)) 



"END" or answer$ = "end" then 2000 
?r$) 

I 5000:rero correct 
1 6000:rera wrong 

rem give answer after 3 tries 

p r i n t : pr i n t : pr i n t : pr i n t tab(8) 

print "No, the answer is " ; bue$ ; c ; br n$ 

p r i n t : p r i n t : p r i n t tab(8) 

print a;" ";s$;" ";b;" = ";c 

pr i n t : pr i n t : z = l:wr = wr + 1 

print tab(8) 

print "Press "; blk$ ; "RETURN" ; brn$ ; " to continue; 
gosub 19000:rem return key routine 
goto 630:rera another problem 



rem — total routine — ** 
rem clr/horae — cursor down 5 
print horae$:cd = 5:gosub 9000 
print tab(8) 

print "You got" ;bue$;cr;brn$.; "right!" 
print:print tab(8) 

print "You mi s sed" ; bue $ ; wr ; brn$ ; " . " 



rem **--file i nput / o u t pu t--** 

rem *-user message-* 

poke 19,0:rein reset input prompt 

cd = 5:gosub 9000:rem crsr down 5 
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3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
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print tab(8) 
print rvs$; 

print "UPDATING FILES." 
print. -printrprint tab(8) 
print rvs$;"PLEASE WAIT!" 

rem ** — file input routine — 
k = 1 

open 3,8,3,cv$ + ",seq,read" 

input#3,s$(k):rem sign 

i npu t # 3 , d t ( k ) : r em # of digits 

inpu t # 3 , c r ( k ) : rem # of correct 

input#3,wr(k): rem # of wrong 

If status = then k = k + l:goto 3140 

if status = 64 then k = k + 1 

rem status = — all ok 

rem status = 64 — eof 

rem status not or 64 — 1st use 

s$(k) = s$:dt(k) = dt: cr(k) = cr:wr(k) 
close 3 



rem **--file output routine — ** 

open 4,8,4,"(a0:" + cv$ + ",seq, write' 

for i = 1 tok 

pr int#4 , s$ ( i ) : rem sign 

pr i n t # 4 , d t ( i ) : r em # of digits 

print#4 , cr ( i ) : rem # of correct 

pr i n t # 4 , wr ( i ) : rem # of wrong 

next i 

close 4 



rem **--return to program menu--*'!' 
poke 19,0:rera restore input prompt 
rem clr/home cursor down routine 
print home$:cd = 5:gosub 9000 
print tab(tb) 
print rvs$; 

print "LOADING THE MATH MENU PROGRAM" 
'"math .menu" 



rem ** --correct answer routine--** 

cd = 5:gosub 9000:rera crsr down 5 

print:print tab(18) 

print "GOOD!" 

for i = 1 to 1000:next i 

c r = c r + i 

goto 630:rem another problem 
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5080 



6000 


rem 




* — wrong answe 


r routine--* 


6010 


cd 


= 


5:gosub 9000:r 


em crsr down 


6020 


pri 


nt 


: print tab(8) 




6030 


pri 


nt 


"No, Please t 


ry again . " 


6040 


z = 


z 


+ 1 


6050 


pri 


nt 






6060 


for 


i 


= 1 to 1000:n 


ext i 


6070 


got 





1150:rem ask a 


gain 


6080 








6090 










7000 


rem 




* — convert to 


lowercase--* 


7010 


for 


c 


V = 1 to len(c 


v$) 


7020 


X = 


a 


sc(mid$(cv$,cv 


.1)) 


7030 


If 


X 


> 192 then x = 


X - 128 


7040 


n c S 


= 


nc$ + chr$(x) 




7050 


nex 


t 


C V 




7060 










7070 


c v$ 




nc$ 




7080 


f = 


a 


sc(left$(cv$,l 


)) 


7090 


f = 


f 


+ 128 




7100 


nc$ 




chr$( f ) + rig 


ht$( cv$ , len( 


7110 


ret 


ur 


n 





1) 



7120 : 

7130 rem na$ 
7140 rem cv$ 
7150 rem nc$ 
7160 
7170 
7180 
9000 
9010 
9020 



= originally typed name 
= converted to lowercase 
= 1st 1 e t t er /u pper case 



for. i = 1 to 
print cd$; 



cursor down 
cd 



routme-- 



9030 next i 



9040 

9050 

9060 

9070 

19000 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19080 

19090 

19100 

19110 



return 



rem — return key routine — ** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 
next i 

X = peek(197):reni store key press 

if X = 1 then 19080:reiii 1 = rtn, 

goto 19050:if not 1 go back 

poke 198,l:rem allow for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rem clr string variable 

return 



ready , 



ADDITIONAL SEQUENTIAL FILES TECHNIQUES 201 



■ Program for MATH. SCORES 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
265 
266 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
550 
570 
580 



-math . scores- 



rem *■ 




-initialization 






home $ 




chr$( 147) ; 


: r em 


clr/home 


: : cd$ 




chr$( 17): 


; rem 


cursor 


down 


: : cu$ 




chr$( 145) ; 


; rem 


cursor 


up 


: :cl$ 




chr$( 157) ; 


; rem 


cursor 


left 


: : cr $ 




chr$( 29): 


; r em 


cursor 


right 


: blk$ 




chr$( 144) ; 


; r em 


black 




: y lw$ 




chr$( 158) ; 


; r em 


yellow 




: wht$ 




chr$( 5); 


; r em 


white 




: rvs$ 




chr$( 18); 


; r em 


reverse video 


: bnk$ 




chr$( 10); 


; rem 


blank 


line 



poke 53280, 14:rem border = It. blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 2:rem set bkgrd to red 



rem ''"''--user message--''"-'" 

print home$:rem clr/horae 

cd = 5:gosub 9000:rem crsr down 5 

poke 19,32:rera disable input ? 

input "Student's name please: ";na$ 

rem convert to lowercase 

cv$ = na$:gosub 7000 

gosub 10000:rem display routine 

print home$:cd = 5:gosub 9000 

print ylw$;"0NE MOMENT PLEASE!" 

rem **--file input routine — ** 
dim s$( 100) ,dt( 100) ,cr ( 100) ,wr(100) 
open 2,8,2,cv$ + ",seq,read" 
k = 1 

inpu t # 2 , s$ ( k ) : r em sign of operation 
inpu t # 2 , d t ( k ) : r em # of digits 
inpu t # 2 , c r ( k ) : r em # correct 
i npu t # 2 , wr ( k ) : r em # wrong 
k = k + 1 

if status = then 420 
close 2 

rem — display scores — ** 
gosub 6000:rem titles routine 
J = 1 



for q = 1 to k 



1 



' + ' 

II n 



if s$(q) 

if s$(q) = "x" 

if s$(q) = "/" then s$(q) 

if q < 10 then print#file, 



"ADD" 
"SUB" 



then s$(q) 
then s$(q) 
then s$(q) = "MLT" 
"DIV" 



';tab( 1) 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
6000 
6010 
6015 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
71 20 
7130 
7140 



r i n 


t#f ile , 


H II 


•. '1 ; 




r i n 


t#f ile , 


n If 


; La 


b(10) 


r i n 


t#f ile , 


11 !I 


; ta 


b(19) 


f c 


r(q) > 


9 


the 


n u = 


r i n 


t # f i 1 e , 


tt ft 


; ta 


b(28 


= 











f w 


r(q) > 


9 


the 


n u = 


r i n 


t#f ile , 


It ti 


; ta 


b(35 















j + 1 








e III 


19000 i 




r t n 


key 


em 


6000 1 


s 


t i L 


J e s r 



- 1 

+ u) 



c r ( q ) ; 



u 

j 
r 
r 

if j > 
next q 



+ u) wr(q) 



routine 



15 then gosub 19000:gosub 



7 

6000 



gosub 19000:rem rtn key routine 



rem — return to program menu — ** 
poke 19,0:rem restore input prompt 
rem clr/home cursor down routine 
print home$:cd = 5:gosub 9000 
print tab(5) 
print rvs$; 

print "LOADING THE MATH MENU PROGRAM" 
""math. menu " 



rem 


--titles 


routine--** 


print 


home$:rem clr/home 


print 


tab(17) 


nc$:print:print 


print 


"SESS." ; 




print 


tab( 7): 


print "OPERATION" 


print 


tab( 18) : 


print "DIGITS"; 


print 


tab(26) : 


print "CORRECT"; 


print 


tab(34) : 


print "WRONG" 


return 





rem 


** — convert to 


lowercase 


for 


cv = 1 to len(c 


v$) 


X = 


asc(mid$(cv$,cv 


,1)) 


if X 


> 192 then x = 


X - 128 


nc$ 


= nc$ + chr$(x) 




next 


C V 





c V $ = n c 3 

f = asc(left$(cv$,l)) 
f = f + 128 

nc$ = chr$(f) + r igh t $ ( c v $ , len ( c v$ ) - 1) 
return 



rem n a $ 
rem c v $ 



originally typed name 
converted to lowercase 
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7150 rem nc$ = 1st letter /uppercase 
7160 : 
7170 : 
7180 : 

9000 rem ** — cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

9070 : 

10000 rem **--display routine--** 

10010 print home$:rem clr/horae 

10020 cd = 3: rem 3 lines down 

100 30 gosub 9000:rem cursor down routine 

10040 print "Would you like a paper print out?" 

10050 print 

10080 gosub 18000:rem y/n input routine 
10090 if yes$ = "y" then 10240:rera prnt 
10100 if yes$ = "n" then 10300:rem scrn 
10110 : 

10120 print home$:rera clr/horae 

10130 cd = 3:rem 3 lines down 

10140 gosub 9000:rera cursor down routine 

10150 print "Please make sure the printer" 

10160 print 

10170 print "is on and ready to use." 
10180 print 

10190 print "Are you ready to begin printing?" 
10200 print 

10210 gosub 18000:rem y/n input routine 
10220 if yes$ = "n" then 10000 
10230 : 

10240 rem * -printer display-* 
10250 file = 4 
10260 dvic = 4 
10270 cmnd = 7 

10280 goto 10500: rem open instruction 
10290 : 

10300 rem *-screen display-* 
10310 file = 3 
10320 dvic = 3 
10330 cmnd = 1 

10340 goto 10500:rera open instruction 
10350 : 
10360 : 

10500 rem *-open instruction-* 
10510 open f i 1 e , d v i c , c mnd 
10520 return 
10530 : 
10540 : 
10550 : 

18000 rem **--y/n input routine--** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wht$ ; "N" ; ylw$ ; " :"; 
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1 8 2 (J 
180 30 
18040 
180 SO 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
1813 
19000 
19010 
1 9020 
1 9030 
1 9040 
1 90 5 
1 9060 
19070 
1 908 
19090 
19100 
19 110 
1912 
1 91 30 

1914 

1915 

ready . 



poke 1 9 , 3 2 : r e m d L s a I) 1 e input ? 

input yes $ 

print 

if yesS = "y" or yes$ = "Y" then yes$ = "y":i-eturn 
if yesS = "n" or yesS = "\" tlien yesS = "n": return 
p r i. n t 

print r V s $ ; " 1 II <•- r r e c t, C h o i c e ! " ; y I w $ 
p r i n t 

goto 18000: rem begin again 



rem '''-'--return key routine-- * 
print 

print "Press " ; wh t $ ; " R ET[] R N " ; y 1 w$ ; " to continue: 

p o 1< e 1 9 8 , : r e m c 1 r l< b r d buffer 

for i = 631 to 640 

p o k e i , : r e m no value 

next i 

X = p c c k ( ! 9 7 ) : r e m store key press 

i. f X = 1 then 1 9 1 : r e m 1 = r t n . 

goto 1 9 7 : i f not 1 go back 

poke 1 9 , : r e rn restore input prompt 

poke 1 9 8 , 1 : r o 111 allow for cursor 

poke 631,0:rem clr kbrd 

nuS = "":reni clr string variable 

j = 1 
return 
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Program for CREATE Q&A 



100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
262 
263 
264 
265 
266 
500 
505 
510 
520 
530 
540 
550 
560 
570 
58Q 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 



***--create 



rem 


* — initializa 


t i on 


— 


hi m e $ 


= chr$( 


147) : 


rem 


clr/home 


: :cd$ 


= chr$( 


17) : 


rem 


cursor down 


: : cu$ 


= chr$( 


145) : 


rem 


cursor up 


: : cl$ 


= chr$( 


157) : 


rem 


cursor left 


: : cr$ 


= chr$( 


29) : 


rem 


cursor right 


: blk$ 


chr$( 


144) : 


rem 


black 


: ylw$ 


= chr$( 


1 58) : 


rem 


yellow 


: wht$ 


= chr$( 


5) : 


rem 


white 


: r vs$ 


= chr$( 


18): 


rem 


reverse video 


: bnk:$ 


= c h r $ ( 


10) : 


rem 


blank line 


poke 


53280, 14 


: rem 


bore 


e r = 1 t- . b 1 u e 


poke 


53272,23 


: r em 


uppe 


r/lower case 


]oke 


53281, 


: rem 


set 


bkgrd to red 



dim q$(50) ,a$(50) 
k = 1 

poke 19,32:rem disable input 



rem '-'•-^ — input routine — 
print ylw$ 

print home$:cd = 5:gosub 9000 
input "Subject name? ";sub$ 
sub$ + ".quest" 
home$:cd = 5:gosub 9000 
"Type ";wht$;"END";ylw$; 
print 

"QUESTION #";k;":" 



sub$ 
print 
print 
print; 
print 
print 
input 



when finished ." 



a$(k) 

h orae $ : c d 

q$(k) 



5:gosub 9000 



q$(k) 

if q$(k) = "END" or q$(k) 
print:print 
print "ANSWER:" 
pr int 
input 
print 
print 
print 

print a$(k) 
print 
print 
gosub 
if y e s $ = 
k = k + 1 
740 goto 540 
750 : 
760 : 

1000 rem **--file output routine-- 
1010 open 2,8,2,sub$ + ",seq, write 



"end" then 1000 



"Is this correct? "; 
18000:rem y/n input routine 
"n" then 540 
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1020 


print#2 


, k-1 


1030 


for j = 


1 to k-1 


1040 


p r i n t # 2 


, q $ ( j ) 


1050 


pr int#2 


j) 


1060 


next j 




1070 


close 2 




1080 


poke 19 


,0:rem restore 


1090 


end 





1100 

1110 

1120 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

18000 

18010 

18020 

18030 

18040 

18050 

18060 

18070 

18080 

18090 

18100 



rem 
for i 
print 
next i 
return 



— cursor down routine--** 

= 1 to cd 

cd$; 



rem * * - - y / n input routine--** 
print "Type a " ; wht $ ; " Y " ; y 1 w$ ; 
poke 19,32:rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" then yes$ 
if yes$ = "n" or yesS = "N" then yes$ 
print 

print r V s $ ; " I nc or r ec t Choice !"; ylw$ 
print 

goto 18000:rem begin again 



or " ; wht$ ; "N" ; yl w$ ; 



: return 
; return 



ready . 
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■ Program for DRILL & PRACTICE 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
265 
266 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
585 



rem ***--drill & practice- 







-initialization 


*>!! 


horae$ 




chr$( 147) ; 


: rem 


clr / home 


: :cd$ 




chr$( 17): 


! rem 


cursor down 


: : cu$ 




chr$( 145) 


: rem 


cursor up 


: :cl$ 




chr$( 157) ; 


: r em 


cursor left 


: :cr$ 




chr$( 29) 


: rem 


cursor right 


: blk$ 




chr$( 144) : 


: rem 


black 


: ylw$ 




chr$( 158) ; 


; rem 


yellow 


: wht$ 




chr$( 5); 


; rem 


white 


: rvs$ 




chr$( 18); 


; rem 


reverse video 


: bnk$ 




chr$( 10); 


; rem 


blank line 



poke 53280, 14:rem border = It. blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 2:rem set bkgrd to red 



rem -i'i'--user message — 

print horae$:rem clr/home 

cd = 5:gosub 9000:rem crsr down 5 

poke 19,32:rem disable input ? 

input "Subject's name please: ";sb$ 

rem convert to lowercase 

cv$ = sb$:gosub 7000 

sb$ = cv$ + ".quest" 

gosub 10000:rem display routine 

print horae$:cd = 5:gosub 9000 

print ylw$';"ONE MOMENT PLEASE!" 



rem * * — file input routine--** 

dim q$(50),a$(50) 

open 2,8,2, sb$ + ",seq,read" 

input#2,j 

for i = 1 to j 

i n pu t #2 , q $ ( i ) : r era questions 

i n pu t # 2 , a$ ( i ) : r em answers 

next i 

close 2 

rem **--display questions--** 
i = rnd(O) * 10:za = i:i = int(i) 
if i > j or i < 1 then 510 
print home$:cd = 5:gosub 9000 

"Answer with " ; wht$ ; "END" ; ylwj 
print 



print 
print I 
print 
print ; 
input 
nc$ = 



q$(i) 
print 
"Your 



answer is; 
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590 

59 5 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

800 

810 

820 

830 

880 

890 

900 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 

1110 

6000 

6010 

6015 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 



cv$ = ans$:gosub 7000:ans$ = cv$ 
nc$ = "" 

cv$ = a$(i):gosub 7000:a$(i) = cv$ 

print 

if ans$ = "end" then 1000 

if ans$ = a$(i) then print "C0RRECT":a 

if z > then 700 

print "No, try once more." 

print 

z = 1 

a2 = a 2 + 1 
goto 570 

print "No, the answer is: ";a$(i) 
m = ra + 1 
z = 
print 

for k = 1 to 1000:next k 
goto 500 



= a + l.-Boto 800 



r G m 


— display score — ^''"^ 






a2 = a 


2 - m 






a = a 


- a2 






print 


home$:cd = 3:gosub 9000 






print 


"You got" ;a;"right on the 


first 


try 


print : 


print 






print 


"You got" ;a2 ; "right on the 


second try 


print: 


print 






print 


"You mi s sed" ; m ; "a nswer s . " 






end 








rem * 


— titles routine — ** 






print 


home$:rera clr/horae 






print 


tab(17) nc$ : print : print 






print 


"SESS."; 






print 


tab( 7):print "OPERATION"; 






print 


tab( 18) : print "DIGITS"; 






print 


tab( 26) : print "CORRECT" ; 






print 


tab(34) : print "WRONG" 






return 








rem 


— convert to lowercase--** 






for c V 


= 1 to len(cv$) 






X = asc ( mid $ ( c V $ , c V , 1 ) ) 






if X > 


192 then x = x - 128 






nc$ = 


nc$ + chr$(x) 






next c V 






c v$ = 


nc$ 






f = asc(left$(cv$, 1) ) 






f = f 


+ 128 






nc$ = 


chr$(f) + right$(cv$ , 1 en( c 


v$)- 


1) 
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7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

10000 

10010 

10020 

10030 

10040 

10050 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10500 

10510 

10520 

10530 

10540 



return 

rem na$ 
rem cv$ 
rem nc$ 



originally typed name 
converted to lowercase 
1st 1 e 1 1 er /up per case 



rem ** — cursor down routine- 

for d - 1 to cd 

print cd$; 

next d 

return 



rem ** — display routine — ** 

print home$:rem clr/horae 

cd = 3:rera 3 lines down 

gosub 9000:rem cursor down routine 

print "Would you like a paper print out?" 

print 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 10240:rem prnt 
if yes$ = "n" then 10300:rem scrn 



print horae$:rem clr/home 
cd = 3:rem 3 lines down 

gosub 9000:rem cursor down routinerun 
print "Please make sure the printer" 
print 
print 
print 
print 
print 

gosub 18000:rem y/n input routine 
if yes$ = "n" then 10000 



"is on and ready to use." 
"Are you ready to begin printing' 



rem ' 


'-printer display-* 


file 


= 4 




d V i c 


= 4 




cmnd 


= 7 




goto 


10500 


rem open instruction 


rem ' 


'-screen display-* 


file 


= 3 




d vi c 


= 3 




cmnd 


= 1 




goto 


10500 


rem open instruction 


rem ' 


'-open 


instruction-* 


open 


file, dvic, cmnd 
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10550 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
19150 



rem ** — y/n input routine--** 

print "Type a " ; wh t $ ; " Y" ; y 1 w$ ; " or " ; wht$ ; "N" ; yli 
poke 19,3 2:rem disable input ? 
input yes$ 
print 
if y e s $ = 
if yes$ = 
print 
print rvs 
print 

goto 18000: rem begin again 



or 
or 



yes$ = 
yes$ = 



11 yT 

"N" 



then 
then 



yes$ 
yes$ 



= y 



; return 
: re t u r n 



:;"Incorrect Cho ic e ! " ; y lw5 



rem * 


* --return 


key routine — 




print 








print 


"Press " 


; whtS ; "RETURN" 


; y 1 w $ ; " 


poke 


1 98 , : rem 


clr kbrd buff 


er 


for i 


= 631 to 


640 




poke 


i , : r e m n 


o value 




next 


i 






X = p 


eek( 197) : 


rem store key 


press 


if X 


= 1 then 


19100:rem 1 = 


r tn . 


goto 


19070: i f 


not 1 go back 




poke 


19,0: rem 


restore input 


prompt 


poke 


198, 1 :rem 


allow for cur 


sor 


poke 


63 1 , : rem 


clr kbrd 




n u $ = 


"":rem c 


Ir string vari 


able 


j = 1 








retur 


n 







to continue; 



ready , 
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DIF files 



One of the more exciting possibilities in file handling is the prospect of a standard 
format for transferring file information. At least one such standard is now being 
supported by a number of major pieces of application software. The DIF file format 
was developed by Software Arts, writers of VisiCalc. It is important to keep in 
mind the intent of this standard. The standard does not suggest that all files be 
stored according to the DIF format. Such a requirement would place an impossible 
burden on too many applications to make the standard truly acceptable. Instead, 
the standard suggests a specific format for file transfer. 

If you never expect to transfer your file information from one program to 
another, you have no real need to use DIF. But if you wish to have different 
programs share the same data, then a standard such as DIF is very valuable. For 
example, if you never expect to use another program with your Mailing List System 
names and addresses, then there is no reason to store those names and addresses 
according to the DIF format. On the other hand, if you want to use Calc Result 
(or some other DIF-supporting spreadsheet program) with the scores obtained from 
the math system, then the DIF format becomes important. Without the standard, 
it would be necessary to type all the scores into the Calc Result program. With 
DIF, Caic Result can read the scores directly from the disk. On a small file, retyping 
is not a big consideration, but as the file grows, it becomes a major problem. 
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Regardless of the file size, rekeying the information for every application program 
that makes use of the same data is annoying, inconvenient, and unnecessary. If an 
application program such as Calc Result makes use of, or supports, the DIF file 
format, any information stored according to that standard can be used by that 
application program. 

Most application programs supporting DIF actually offer you two methods of 
saving your information or data. The first or standard method is the most efficient 
and effective way to store information for the specific program. The second method 
is the DIP format. In other words, the file is saved twice, once in the normal manner 
according to the program needs, and the second time in a format that allows other 
programs to access and use the information. This two-method system is necessary 
because the DIF format (or any standard format) is not a very efficient way of 
storing and retrieving information. Let's look at the DIF format and use it to store 
the scores from the Math System so that Calc Result can directly access those 
scores. 

Before getting into the exact way DIF files are stored, it is necessary to un- 
derstand that, in order to make a standard method of saving information, the file 
must contain information about itself: where it starts and ends, whether the infor- 
mation is numeric or alphabetic, label information, or actual data. The creators of 
DIF decided that all DIF files must be divided into two basic parts. The first part 
contains information about the file itself, and the second contains the actual data. 
The first part is called the Header Section and the second part the Data Section. 
Next, since there are many ways of displaying information, they decided to group 
all information into two categories: Vectors and Tuples. Basically, Vectors and 
Tuples are just columns and rows. Finally, each piece of information must carry 
with it the type of information it is: numeric, alphabetic (alphanumeric), or special 
(descriptive). To distinguish between these types of information, they assigned the 
following codes: a "0" indicates numeric information, a "1" indicates alphanumeric 
information, and a " — 1" indicates special or descriptive file information. 

The only other major decision to be made is the exact organization of the file. 
This organizational decision is indeed more complex, but it does follow a logical 
pattern and can be learned with pracfice. The Header Section (the part of the file 
that carries information about itself) comes first. Obviously, then, the Data Section 
comes after the Header Section. The beginning and ending of each of these sections 
must then be indicated in some way. 

If you remember, in the Mailing List System we used two symbols as separators, 
the "!" and the (see Chapter 4). In much the same way, the creators of DIF 
have used symbols to set off the beginning and ending points of the two file sections. 
The word "TABLE" is used to begin the file and is the first entry in the Header 
Section. The characters "EOD" (End Of Data) are used as the last entry of the file 
and the end of the Data Section. 

Finally, something must divide the two sections. The DIF creators decided that 
the division should occur in the Header Section and had to be the last entry in that 
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section. That last entry, then, has to follow the pattern for the Header Section. This 
means that the division between the Header Section and the Data Section needs to 
be in the following format: 

DATA 
0,0 



We now have the beginning and ending of the file and the division between the 
two sections. 

REM **--HEADER SECTION--** 
TABLE 



DATA 
0,0 

REM **~DATA SECTION--** 



EOD 

The two sections are organized in slightly different ways. The Header Section 
requires three lines of information for each entry, while the Data Section uses two 
lines of information for each entry. 



HEADER SECTION 

The first line in each entry of the Header Section gives the topic of the entry. 
TABLE, VECTORS, TUPLES, and DATA are the usual topic hnes. The second 
line in each entry gives numeric information about each topic, such as the number 
of VECTORS and the number of TUPLES. The third line allows for a name for 
each topic if a name is necessary. A typical Header Section might look like the 
following: 
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TABLE 
0,1 

"SCORES" 

VECTORS 
0,5 

TUPLES 
0,4 

LABEL 
1,0 

"SESSION #" 

LABEL 
2,0 

"OPERATION" 

LABEL 
3,0 

"DIGITS" 

LABEL 
4,0 

"# CORRECT" 

LABEL 
5,0 

"# WRONG" 

DATA 
0,0 

II II 



(I have added the colons to separate the individual entries.) 

Remember that this is the way the information would look in the file and that 
this section contains information about the file itself. Since VECTORS and TUPLES 
are basically columns and rows, it is not too difficult to understand the numeric 
information required in the second line of information in each entry of the Header 
Section. The first number is the VECTOR number or column number. The second 
number is a specific value related to the topic of the entry. 
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Session # 



Operation 



Math scores 
I Digits 



Correct 



Wrong 



1 
2 
3 
4 



ADD 
MUL 
DIV 
SUB 



2 

3 
3 
5 



8 
12 

7 
24 



2 
8 
13 
1 



For example, in a table of five columns, the second line of information under the 
topic of VECTORS would be "0,5". Since the topic "VECTORS" is not actually 
in the table, it does not have a column number (Vector name), so the "0" is first. 
The "5" indicates the value relating to the topic, VECTORS or five columns. Under 
the topic of LABEL, you can list the actual names of the columns, their relative 
positions, and any specific value. With a LABEL, the value is usually "0" in a 
simple table. TUPLES, or rows, might have a second line of "0,4" indicating that 
the topic TUPLES was not actually in the table but had a value of 4 (i.e., 4 rows). The 
value for the topic TABLE is the version number and must be a "1". So we see 
that the Header Section describes a file of information that, in our example, consists 
of 5 columns and 4 rows (5 VECTORS and 4 TUPLES). 



Each entry of the Data Section consists of two lines of information. The first line 
is numeric and gives two pieces of information: the type of information and the 
value associated with that information. The second line provides alphabetic infor- 
mation associated with the entry. For instance, if the information being stored was 
the number "62.5", the Data Section Entry would be: 



If the information being stored was the word "PERCENT", the entry would be: 
1,0 

"PERCENT" 

In the first example, the information or data is numeric, so the first number in the 
first line of this entry is a "0". The value associated with this entry is the information 
itself, "62.5". The second line of a numeric piece of information can have one of 
five possibilities: 
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DATA SECT/ON 



0,62.5 
V 



1. V for a numeric value. 

2. NA for not available; the numeric value is 0. 

3. ERROR when an invalid calculation has resulted in an error; the numeric value 
is 0. 

4. TRUE for the logical value; the numeric value is 1 . 

5. FALSE for the logical value; the numeric value is 0. 

These five possibilities lend greater flexibility to those who may have need for 
complex data manipulation. In simpler files, numeric information will usually have 
a second line of "V". 

In the second example, the information being stored is alphabetic, so the first 
number in the first line of this entry is a "1". The value associated with alphabetic 
information is usually "0" so that the first line is "1,0". The second line provides 
alphabetic information about the entry, and since the information is alphabetic, this 
second line is the information itself. In other words, if the information is alphanu- 
meric (a "1" is indicated in the first line of the entry), the second line contains that 
alphanumeric information. 

The other possibility for an entry in the Data Section is that of a special value. 
There are two special values: one for the beginning of each Tuple and one for the 
end of the Data Section. Information is grouped within the Data Section by TUPLES 
(rows) with a special entry marking the beginning of each TUPLE. The entry for 
this beginning is: 

-1,0 
BOT 

And the entry for the end of the Data Section is: 

-1,0 
EOD 

The first number in the first line is the type of information (a " — 1" indicating a 
special entry), and the second is the value associated with that entry (a "0" for 
special entries). The second line contains either a BOT for Beginning Of Tuple or 
EOD for End Of Data. 

We should now be able to write out a sample TUPLE for the file using the 
scores from the Math System. 

— 1 ,0 (beginning of tuple) 

BOT 

(Continued on following page) 
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0,1 
V 



(math session number) 



1,0 

"ADD 



(type of operation) 



0,2 
V 



(number of digits) 



0,15 
V 



(number correct) 



0,2 
V 



(number wrong) 



-1,0 
BOT 



(beginning of next tuple) 



The words in parentheses would not be included in the file. They are there to help 
explain each entry. Again, I have added the colons to separate each entry. 

The organization of the Header Section and the Data Section allows for a large 
variety in file manipulation, far more variety than I have gone into with this ex- 
planation. Further information on the structure and flexibility of DIF files can be 
obtained from: (1) the DIF Clearinghouse, POB 527, Cambridge, MA 02139, or 
(2) by reading the information contained in the VisiCalc program, or (3) by reading 
"DIF: A Format for Data Exchange between Applications Programs," BYTE MAG- 
AZINE, November, 1981, p. 174, or (4) in the comprehensive new book The DIF 
File by Donald H. Beil, Reston Publishing Company, Reston, VA 22090. 

Now, we should be able to write a simple program that will reformat our math 
scores file in such a way that it conforms to the DIF standard. The first part of this 
program reads the scores into memory. The second part does the reformatting. 
Again, I will only present the code that relates to file handling. The entire program 
is included at the end of the chapter. 

370 rem **--file input routine--** 
380 dim s$(100),dt(100),cr(100),wr(100) 
390 open 2,8,2, cv$ -f- ",seq,read" 
400 k = 1 

410 input#2,s $(k):rem sign of operation 
420 input#2,d t(k):rem # digits 
430 input#2,c r(k):rem # correct 
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440 input#2,wr(k):rem # wrong 

450 if s$(k) = " + " then s$(k) = "ADD' 

460 if s$(k) = "-" then s$(k) = "SUB" 

470 if s$(k) = "x" then s$(k) = "MLT" 

480 if s$(k) = "/" then s$(k) = "DIV" 

490 k = k +1 

500 if status = then 410 

510 close 2 

520 : 

530 : 



This is virtually the same routine we used for the "math. scores" program. The next 
part of the program is designed by following the necessary organization of either 
the Header Section or the Data Section. 



1000 rem **--dif routine--** 
1010 print home$:cd = 5:gosub 9000 
1020 print rvs$;"WRITING DIF FILE" 
1030 print 

1040 j = k - 1:nv = 5:nt = k - 1 

1050 q$ = chr$(34):rem quote mark 

1060 rem j = counter 

1070 rem nv = number of vectors 

1080 rem nt = number of tuples 

1090 file$ = cv$ + ".dif" 

1100 open 3,8,3,"@0:" + file$ + ",seq,write" 

1110 : 

1120 : 

2000 rem **-header section--** 
2010 : 

2020 print#3, "TABLE" 
2030 print#3/'0,1" 
2040 print#3,q$nc$q$ 
2050 : 

2060 print#3, "VECTORS" 
2070 print#3,"0, ";nv 
2080 print#3,q$q$ 
2090 : 

2100 print#3, "TUPLES" 
2110 print#3,"0,";nt 
2120 print#3,q$q$ 
2130 : 
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2140 print#3, "DATA" 
2150 print#3, "0,0" 
2160 print#3,q$q$ 
2170 : 
2180 : 

These lines create the Header Section. They follow the rules of the Header Section 
in that each entry has three lines: the topic line, the numeric line, and the title or 
string line. The instructions at line 1040 could be handled with input variable 
statements instead of constants. Line 1090 combines the name of the file with the 
suffix ".DIF" to distinguish between the two files. This suffix may be required for 
some application programs. 

The next section of code creates the Data Section. 

3000 rem **--data section--** 
3010 : 

3020 print#3," 1,0" 
3030 print#3,"B0T" 
3040 : 

3050 print#3,"1,0" 

3060 print#3,q$"Session #"q$ 

3070 : 

3080 print#3,"1,0" 

3090 print#3,q$"Operation"q$ 

3100 : 

3110 print#3,"1,0" 

3120 print#3,q$"Digits"q$ 

3130 : 

3140 print#3,"1,0" 

3150 print#3,q$"Correct"q$ 

3160 : 

3170 print#3,"1,0" 

3180 print#3,q$"Wrong"q$ 

3190 : 

3200 for i = 1 to j 
3210 : 

3220 print#3,"-1,0" 
3230 print#3,"B0T" 
3240 : 

3250 print#3,"0,";i:rem math session # 
3260 print#3,"V" 
3270 : 

3280 print#3,"1,0":rem operation 
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3290 print#3,s$(i) 
3300 : 

3310 print#3,"0,";dt(i):rem # of digits 
3320 print#3,"V" 
3330 : 

3340 print#3,"0,";cr(i):rem # correct 
3350 print#3,"V" 
3360 : 

3370 print#3,"0,";wr(i):rem # wrong 

3380 print#3,"V" 

3390 : 

3400 next i 

3410 print#3,"-1,0" 

3420 print#3,"E0D" 

3430 : 

3440 close 3 
3450 : 
3460 : 
3470 : 

We include the labels with the Data Section so that Calc Result will view them as 
data and include them in the display. (Calc Result does not support the "LABEL" 
topic in the Header Section.) Once the label information has been included, we 
write out the actual data by printing the contents of the various arrays. We use a 
loop to accomplish this. When the loop is finished, the special entry EOD is written 
and the file closed. Now, we should have a program that will create a duplicate 
file of an individual's math scores in the DIP file format. 

We are able to create a DIP file that can be accessed by DIP supporting 
application programs. One other step remains. We may need to use data obtained 
with an application program. This requires that we create a program that reads DIP 
files. Reading a DIP file is simply reading a sequential file that has its information 
stored in a specific order. The following program will read a Calc Result DIP file. 
The display portion of the program is left in its original form since each file may 
require a different display format. 

370 rem **-file input routine--** 
380 dim a$(200),s(200),n(200) 
390 open 2,8,2,cv$ + ".dif,seq,read" 
400 k = 1 

410 input#2,t$.rem read the topic name 
420 input#2,s,n:rem vector #, value 
430 input#2,s$:rem string value 
440 if t$ = "VECTORS" then nv = n 
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450 if t$ = "TUPLES" then nt = n 
460 if t$ <> "DATA" then 410 
470 : 

480 input#2,s(k),n(k):rem data 1st line 
490 input#2,a$(k):rem data 2nd line 
500 if a$(k) = "EOD" then 540 
510 k = k + 1 
520 goto 480 
530 : 

540 close 2 
550 : 
560 : 

1000 rem **-display routine-** 
1010 print home$:cd = 5:gosub 9000 
1020 for j = 1 to k 
1030 print s{j);",";n(j) 
1040 print a$(j) 
1050 next j 
1060 : 
1070 : 

The display routine is left in its elementary form since the point of the program is 
to show how to access files from DIF supporting application programs. All these 
lines should be familiar. Line 460 tells the computer to go back to line 410 until 
T$ equals "DATA". At that time, the computer is to drop down to the loop used 
to read and store the Data Section information (lines 480 through 520). When a$(k) 
reads the value "EOD", we know that the file is finished, and we need to close the 
file and proceed to the display routine. 

As with all programs, there are other ways of writing a DIF reader program 
and obtaining essentially the same results. We could have read and saved all the 
information contained in the Header Section. We could have used a number of 
GOSUBS (especially in the DIF creator program). But most of these differences 
are stylistic differences and not substantive differences. 

You now have the ability to read and write DIF files. That ability may not 
prove immediately useful, but I think you will find that this may eventually be the 
most valuable thing you have learned in this book. If you are not completely sure 
you understand the format, a second look through this chapter and additional work 
with DIF creator or reader programs should make you comfortable with DIF. 

I have not tried to explain all the possibilities or variations of DIF. This chapter 
is intended only as an introduction to this file transfer standard. I firmly believe 
that some such standard is essential if micros are to be taken seriously. 

I will conclude this chapter with a tutorial on the specific procedure necessary 
to transfer the information stored in the scores files to the Calc Result program 
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(CBM 64 Advanced Version). This section will be useful to you only if you have 
Calc Result and have actually typed in and lUn the math system programs. You 
will need to have typed in the "scores.dif ' program discussed in this chapter also. 
(Diskettes containing all the programs in this book are available for those who do 
not want to type in every program. See the Bookware page in the front of the book 
for ordering information.) 

^EP 1: Type: /scores.dif 

STEP 2: Type RUN and press the RETURN key. 

STEP 3: Answer the question with your name if you have used the Math System, 
or with the name of someone who has used the Math System. 

STEP 4: The disk comes on. Soon the READY prompt returns. ***-VERY 
IMPORTANT-*** Turn off the Commodore-64 at this point. 

STEP 5: With the Commodore-64 off, put the Calc Result cartridge in the 
Commodore-64 cartridge slot. Place the Calc Result diskette in the 1541 disk drive. 

SrEP 6: Turn on the Commodore-64. Read the screen and press any key, if 
necessary. 

STEP 7: After the Calc Result display appears , remove the Calc Result diskette . 
Replace the Calc Result diskette with the diskette used to create the new DIP file. 
Press the F7 key. Do not press the RETURN key! Do not press the RETURN key 
from this point on unless given specific instructions to do so. 

STEP 8: Next press the D key. 

STEP 9: Now type the D key once more. 

STEP 10: Press the L key. The disk drive will come on and a list of the files 
on the diskette will be displayed. 

STEP 11: Press the CRSR down key to move the cursor rectangle over the name 
of the newly created DIP file (the file with the ".dif ' extension). When the correct 
file is under the cursor (the file name is highlighted), press the RETURN key. Then 
immediately, press the RETURN key a second time. 

STEP 12: Near the top of the screen the computer asks the question: FROM 
Al. Press the RETURN key to indicate acceptance of this location as die starting 
point for the DIF file. 

STEP 13: Once again, near the top of the screen, the computer displays the 
question: BY ROWS OR BY COLUMNS. 

STEP 14: Press the C key. 

STEP 15: The disk drive comes back on and soon the screen displays information 
that originally came from the Math System programs. 
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STEP 16: Press the F7 key again. 
STEP 17: Press the G key. 
STEP 18: Press the F key. 

STEP 19: Finally, press the L key. The numbers should now be lined up under 
the proper column titles. Further adjustment can be made to the column widths and 
so on. 

At this point, the scores obtained under the Math System can be manipulated in 
any fashion desired within the bounds of the Calc Result program. 

No attempt is made to explain the reason for each step. If you want to understand 
why various keys are pressed while in Calc Result, obtain a copy of the Calc Result 
manual or purchase one or more of the books that ate being published on the use 
of spreadsheet programs. 



QUESTIONS 

1. True or False: DIF suggests a standard way of saving all files. 

2. Name the two parts of a DIF file. 

3. Which part contains information about the file itself? 

4. Which part contains the actual file information? 

5. How many lines are associated with each entry in the Header Section? 

6. How many lines are associated with each entry in the Data Section? 

7. What value is used to indicate numeric information in the Data Section? 

8. What value is used to indicate alphanumeric information in the Data Section? 

9. What characters are used as the last entry in a DIF file? 
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ANSWERS 



1. False 

2. Header Section and Data Section 

3. Header Section 

4. Data Section 

5. 3 

6. 2 

7. 

8. 1 

9. EOD 
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■ Program for SCORES.DIF 



100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

22 5 

226 

227 

2 30 

2A0 

250 

260 

265 

266 

270 

280 

285 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

1000 

1010 

1020 



rem •>■ 




--scor 


e s . d i f — -'- 






rem * 




-i ni t i 


al ization 


- - -'' 




iome$ 


= 


c h r $ ( 


14 7) 




c 1 r /home 




: : cd$ 


= 


chr$ ( 


17) 


rem 


cursor d 


own 


: : c u $ 


= 


chr$ ( 


145) 


rem 


cursor u 


P 


: : c 1 $ 


= 


c h r $ ( 


157) 


rem 


cursor 1 


eft 


: ; c r 5) 




c h r $ ( 


29) 


rem 


cursor r 


i ght 


: b J k$ 




chr$ ( 


1 44) 


rem 


black 




: y J w$ 




c li r $ ( 


1 58) 


rem 


yellow 




: wht$ 




chr$( 


5) 


rem 


white 




: r V s $ 




chr$( 


18) 


rem 


reverse 


video 


: bnk$ 




chr$ ( 


10) 


rem 


blank 1 i 


ne 


: brn $ 




chr$( 


149) 


rem 


b rown 




: bue$ 




chr$( 


31) 


rem 


blue 




3oke 


5 3 280, U 


: rem 


bore 


er = It. 


blue 


poke 


5 3 2 7 2,23 


: r em 


u ppe 


r / 1 owe r 


case 


Doke 


53281, 1 


•.rem 


set 


bkgrd to 


wht 



rem * — user message — 

print blk$ ; home$ : rem clr/home 

print tab(lO) "DIF TRANSLATION" 

cd = 5:gosub 9000:rem crsr down 5 

poke 19,32:rem disable input ? 

input "Student's name please: ";na$ 

rem convert to lowercase 

cv$ = na$:gosub 7000 

print home$:cd = 5:gosub 9000 

print blk$;"ONE MOMENT PLEASE!" 

rem ** — file input routine--** 
dim s$(100),dt(100),cr(100),wr(100) 
open 2,8,2,cv$ + ",seq,read" 
k = 1 

inpu.t#2,s$(k) :rem 
input#2,dt(k) :rem 
input#2,cr(k) :rem 
input#2,wr(k) :rem 
if s$(k) = 
if s$(k) = 
if s$(k) = 
if s$(k) = 
k = k + 1 
if status = 
close 2 



sign of operation 



X 

ti ^ ti 



# 
# 

then 
then 
then 
then 



of digits 
correct 
wrong 
s$(k) 
s$(k) 
s$(k) 
s$(k) 



"ADD" 
"SUB" 
"MLT" 
"DIV" 



then 410 



rem * * - - d i f routine--** 

print horac$:cd = 5:gosub 9000 

print rvs$ ; "WRITING DIF FILE" 



226 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1110 
1120 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2 1 00 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31 10 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 



print 

j = k - l:nv = 5:nt = k - 1 
q$ = c hr $ ( 3 A ) : rem quote mark 
rem j = counter 
rem nv = number of vectors 
rem nt = number of tuples 
file$ = cv$ + ".dif" 

open 3,8,3,"@iO:" + file$ + ",seq, write' 



-header section- 



print # 3 , "TABLE" 
pr i nt#3,"0, 1" 
print#3,qSncSq$ 

print#3, "VECTORS" 
print#3,"0,";nv 

print#3,q$q$ 

print#3, "TUPLES" 
print#3,"0,";nt 
print#3, , q$q$ 

print#3,"DATA" 

print#3,"0,0" 

print#3,q$q$ 



rem ** — data section--*^ 

print#3, "-1 ,0" 
print#3,"B0T" 

print#3,"l ,0" 
print#3,q$" Session #"q$ 

print#3,"l ,0" 
print#3,q$" Operation "q$ 

print#3,"l ,0" 
prlnL#3 , q$"Digits"q$ 

print#3,"l ,0" 
print#3,q$" Correct "q$ 

print #3,"] ,0" 
print#3 , q$"Wrong"q$ 



for i 



1 to 



print#3,"-l ,0" 
print#3,"B0T" 

pr i n t# 3 , "0 , " ; i : rem math session # 
print#3,"V" 
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3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
9000 
9010 
9020 
9030 
9040 



p r i n t # 3 , " 1 , 0" : r em operation 
print#3,s$(i) 

print#3 , "0, " ; d t( i ) : rem # digits 
print#3,"V" 

pr i n L # 3 , " , " ; cr ( i ) : r em # correct 
print#3,"V" 

print#3,"0,";wr(i):rem # wrong 
print#3,"V" 

next i 

print#3, "-1 ,0" 
print#3, "EOD" 

close 3 



rem--end routine--** 
poke 19,0:rem restore input prompt 
poke 53281, 6:rem set bkgrd to blu 
print wht$ 

print horae$:cd = 5:gosub 9000 
print rvs$;"ALL FINISHED" 
end 



rem ** — convert to lowercase--** 

for cv = 1 to len(cv$) 

X = a sc ( mi d $ ( c V $ , c V , 1 ) ) 

if X > 192 then x = x - 128 

nc$ = nc$ + chr$(x) 

next c V 

cv$ = nc$ 

f = asc( lef t$( c v$ , 1 ) ) 
f = f + 128 

nc$ = chr$(f) + r igh t $ ( c v $ , 1 en ( c v$ ) - 1) 
return 

rem na$ = originally typed name 
rem cv $ = converted to lowercase 
rem nc$ = 1st 1 e t t e r / u ppe r cas e 



rem ** --cursor down routine- 

for i = 1 to cd 

print cd$; 

next i 

return 



ready , 
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■ Program for READ.DIF 



1 n n 


rem * 


— read 


dif 








1 1 n 

1 i u 
















] 2 
















1 30 


r e III 


1 11 i t i 


alizatio 






1 40 


home$ 


= c h r $ ( 


147) 


: r e ra 


c Ir /home 


1 50 




: cd$ 


= chr$( 


1 7 ) 


; r e ra 


cursor 




160 




: cu$ 


— c h r $ ( 




: rem 


cursor 


u p 


170 




: cl$ 


= c h r $ ( 


1 S 7 ^ 


: rem 


cursor 


1 Q f h 

J- e 1 r 


1 

low 




: cr$ 


— C 11 I 4> V 


? Q "1 


: r em 


cursor 


right 


1 Q n 




blk$ 


— c n 1 q) 


i ^ H J 


: rem 


black 




z uu 




ylw$ 


- c n r o 


15 8) 


: r era 


yellow 




Tin 




wht$ 


- c h r $ ( 


5) 


: rera 


white 




2 20 




rvs$ 


= c h r $ ( 


18) 


: rera 


reverse 


video 


2 2 5 




bnk$ 


= chr$ ( 


10) 


: rem 


blank 1 


ine 


9 9 A 
Z Z o 




brn$ 


= c n r 41 


149) 


: rem 


brown 




2 2 7 




bue$ 


= chr$ ( 


31) 


: rera 


blue 




2 30 
















2A0 


poke 


53280, 14 


: rem 


border = It 


.blue 


250 


poke 


5 3 2 7 2,23 


: r era 


upper/lower 


c a s e 


260 


poke 


53281, 1 


: rera 


set 


bkgrd t 


wh t 


265 
















266 
















270 


rem * 


"■'--user 


message- 






280 


print 


blk$; ho 


me$ : 


rem 


c 1 r /home 





285 print tab(15) "DIF FILE" 

290 cd = 5:gosub 9000:rera crsr down 5 

300 poke 19,32:rem disable input ? 

310 input "File name please: ";na$ 

320 rem convert to lowercase 

330 cv$ = na$:gosub 7000 

340 print home$:cd = 5:gosub 9000 

350 print blk$;"ONE MOMENT PLEASE!" 

360 : 

3 7 rera * * - - f i 1 e input routine — * * 
380 dim a $ ( 2 00 ) , s ( 200 ) , n ( 200 ) 
390 open 2,8,2,cv$ + " . d i f , seq , r ead " 
400 k = 1 

410 in pu t # 2 , t $ : r em read the topic name 
420 input#2,s,n: rem vector #, value 
430 i n pu t # 2 , s$ : r em string value 
440 if t$ = "VECTORS" then nv = n 
450 if t$ = "TUPLES" then nt = n 
460 if t$ "DATA" then 410 
470 : 

480 i n pu t# 2 , s ( k ) , n ( k ) : r em data 1st line 
490 i n pu t # 2 , a $ ( k ) : r em data 2nd line 
500 if a$(k) = "EOD" then 540 
510 k = k + 1 
520 goto 480 
530 : 

540 close 2 
5 5 : 
560 : 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
5000 
5010 
5020 
5030 
5050 
5060 
5070 
5080 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
9000 
9010 
9020 
9030 
9040 



r 6 m ^ 


— — dispisy 


r u tins — 


print 


hoinG$*cd = 




for j 


= 1 to k 




print 


s(J);",";n 


(j) 


print 


a$( j) 




next j 







rem--end routine — ** 

poke 19,0:rem restore input prompt 
poke 53281, 6:rem set bkgrd to blu 
print wht$ 

print rvs$;"ALL FINISHED" 
end 



rem ** — convert to lowercase — ** 

for cv = 1 to len(cv$) 

X = a sc ( rai d $ ( c v$ , c V , 1 ) ) 

if X > 192 then x = x - 128 

nc$ = nc$ + chr$(x) 

next c V 

cv$ = nc$ 

f = asc(left$(cv$, 1)) 
f = f + 128 

nc$ = chr$(f) + r ig h t $ ( c v$ , 1 e n ( c v$ ) - 
return 

rem na$ = originally typed name 
rem cv$ = converted to lowercase 
rem nc$ - 1st le t t e r /uppe r case 



rem ** — cursor down routine-- 

for i = 1 to cd 

print cd$; 

next i 

return 



ready . 
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"form. 10-20-84 " 84 2a 

1 "hello" prg 

2 "example" prg 
1 "address file" seq 
12 "ma i 1 . create" prg 
1 "adrs-ptr" seq 

1 "adrs-data" seq 
4 "mai 1 . r eade r 1 " prg 

15 "mail.adderl" prg 
19 "mail .adder2" prg 
17 "raai 1 . menu" prg 
12 "shell" prg 
37 "raai 1 . r eade r 2 " prg 
27 "mai 1 . correction" prg 
25 "math. menu" prg 
23 "math. add" prg 
23 "math. subtract" prg 

2 3 "ma t h . ran 1 1 i p 1 y " prg 
23 "ma t h , d i V i d e" prg 
17 "ma t h . sc o r e s " prg 

7 "create q & a" prg 

16 "drill & practice" prg 
12 "scores. dif" prg 

8 "read. dif" prg 
338 blocks free. 



ready. 
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random (relative) file 
introduction 



The biggest barrier I have found in explaining random-access files is fear. People 
are afraid that random access is too hard for them to learn. Actually, once you 
understand the principles behind sequential access, learning to work with random 
access is not that difficult. I believe that if you have followed all the examples in 
the previous chapters, you will be able to learn to work with random files. Don't 
become intimidated by the different approach random access requires. 

If you have skipped the sequential-access chapters and are just starting this 
book, there are a few points that must be understood. For those who have read all 
the previous chapters, the following information is repeated from Chapter 3. 

Data files have two ways of storing and retrieving information. (Remember 
that the information really stays on the diskette and we are just getting a copy of 
the information!) These two ways of storing and retrieving information are sequential 
access and direct (random) access. Sequential access data files mean that the in- 
formation stored in the file is kept in sequential order. Direct access data files 
usually mean that each part of the file is divided equally and can be reached directly 
and at random instead of going through all previous records. The process of looking 
at each record in order (sequence) to decide if it is the record you want is a 
characteristic of sequential files and can require more time than the direct method 
of random access files. 
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Commodore refers to random access files as relative files. But the term "rel- 
ative" in the computer world often means "in relation to" and can be misleading 
when used as the name of the method for directly accessing records within a file. 
To further confuse matters, Commodore also provides a subset of their relative files 
which they call random files. Since Commodore's random files are basically an 
elementary version of their relative files, we will not cover them in a direct way. 
Anything that can be done with Commodore's random files in the BASIC language 
can be accomplished with relative files and in a much easier way. Therefore, any 
mention in this book of random files is meant to refer to Commodore's relative 
files, not Commodore's random files. In other words, whenever I use the term 
random access, I am talking about the same thing that Commodore is when they 
refer to relative files. And, after checking with individuals at Commodore, I have 
decided to use the term "random" rather than use Commodore's term "relative" 
because, in the long run, readers of this book will be less confused by a correct 
application of the appropriate term. 

The basic difference between sequential data files and random data files is 
somewhat like the difference between a cassette tape and a phonograph record. If 
I want to find a specific song on a cassette tape, even using the best available tape 
deck, I must begin at the current location of the tape and proceed either forward 
or backward, passing over all intervening songs until 1 have found the song I want. 
The process proceeds in sequence, one song after another. For example, if I want 
to play only the fourth song on the tape, I would have to advance the tape through 
the first, second, and third songs until 1 get to the fourth one. On the other hand, 
if the songs are on a phonograph record, all I would have to do to play the fourth 
song would be to place the phono cartridge containing the needle at the start of the 
fourth division instead of at the start of the first song. 1 can do that because I am 
able to clearly see the divisions between songs and because those individual songs 
are directly accessible. I do not have to go through the grooves of the first three 
songs to get to the fourth. And moving the needle by hand takes only seconds. So 
imagine that the data drawer (in a file cabinet) contains two basic divisions: the 
first division contains files that operate in a way similar to cassette tapes, while the 
second division contains files that operate like phonograph records in the way 
described. 

But these two kinds of data files do have things in common, just as tapes have 
things in common with phono records. The most obvious common characteristic 
is that they both usually contain information that is not in the form of instructions 
for the computer. In other words, they contain information like lists of things, 
addresses, receipts, and inventories. Second, both files make use of some of the 
same BASIC file commands, but with different parameters. Both sequential and 
random-access data files primarily use four types of commands: (1) OPEN, (2) 
CLOSE, (3) some way of reading the file (INPUT# or GET#), and (4) some 
method of writing to the file (PRINT#). With this minimum background, we are 
ready to begin the study of random access files. 
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There are usually two kinds of random access files: (1) random files that consist 
of undivided equal-length records, and (2) random files that consist of divided 
equal-length records. Notice the only difference is that in one kind the records are 
divided into parts, while in the other kind the records remain as a whole. This latter 
kind will be discussed first. 



UNDIVIDED RANDOM FILES 

Normally, undivided random files are easy to create and use. In fact, they are 
usually very similar to sequential files in that the contents of a keyboard line equal 
the contents of the complete record. It should, therefore, be easy to access individual 
records. Unfortunately, the use of undivided random access (Commodore's "rela- 
tive") files is unreliable on the Commodore 64. Page 35 of the 1541 User's Manual 
indicates that the position parameter is "optional" and implies that undivided random 
(relative) files are possible. Without going into great detail at this point (the appendix 
contains a full description detailing the problems that exist with files created without 
a position parameter), I found these undivided random-access files to be unusable. 
Without the position parameter, every fifth record beginning with record 6 would 
"hang" the computer (cause the computer to completely stop, requiring a full reset — 
the STOP and RESTORE keys) when that particular record was accessed. Then, 
beginning at record 66, the problem advanced one record. Record 67 and every 
following fifth record would cause the computer to hang. The explanation for the 
cause of this problem is quite strange. Without the position parameter, the 64 begins 
storing information 13 spaces into each record. That means that if I were trying to 
store my name in record one, the first available space in that record would not 
contain the D in David. The D would not be stored until space 13. The a would 
then be in space 14, the v in space 15, and so on. This pattern exists for every 
record except those records that cause the computer to hang. When the computer 
stores information in those records, it does begin with the first space. The INPUT# 
command apparently looks for information to begin 1 3 spaces into each record and 
hangs the computer when it comes to these records that have information stored 
beginning with the first space. 

If you have not followed this explanation, it is not that important. The point 
is that without the position parameter (the main distinguishing difference between 
undivided and divided random access files), undivided random access files on the 
Commodore 64 do not function reliably. If the position parameter is included and 
set to one, undivided records can be used without a problem. For practical purposes, 
the position parameter is not optional and, therefore, technically undivided random 
access is not available on the Commodore-64. This distinction is mainly technical 
and semantic and should not hinder anyone from doing what he or she desires on 
the 64 provided he or she includes the position parameter. 
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DIVIDED RANDOM FILES 



Both kinds of random files must consist of equal-length records. This means that 
you must decide on the length of the longest record you will ever have. For instance, 
in our Mailing List System, each line had a maximum length of 80 characters 
because that is the maximum number of characters allowed in a single Commodore 
keyboard line. Probably none of your lines (or records) actually had the maximum 
length, but that was the length possible for each record. You did not need to specify 
this number, because in sequential files, the next record begins immediately after 
the end of the last character and the record delimiter, no matter what the actual 
length of the record. But you must specify the maximum length in random files 
because the next record does not begin immediately after the last character in the 
previous record. It actually begins the specified record length after the beginning 
of the previous record, regardless of the number of characters in that record. 

For example, if the length is given as 50, it means that each record has a 
maximum of fifty characters possible and that each record begins fifty characters 
{i.e., spaces, or bytes) from the start of the previous record. If the first record 
begins at byte 0, the second begins at 50, the third record at 100, and so on. You 
do not need to be concerned with the actual location on the disk. It is important to 
understand that, since each record must be of equal length, it is very easy for the 
computer to calculate the starting position of each record and possible for you to 
specify any record in any order. You must provide the computer with that maximum 
length by assigning a value after the L parameter (for length) that follows the file 
name in random files. The number given after the L in an OPEN statement indicates 
the maximum number of characters or bytes you expect in any record in that file. 
It also indicates that each record will be that number of characters or bytes long. 

If you have a record that is not as long as the number given after the L, you 
will have a certain amount of disk space that is unused. So it is important to figure 
carefully and keep the number after L as low as possible. If the number is very 
large but most of your records are rather small, you will be wasting a lot of disk 
space. A certain amount of wasted disk space is inevitable in using random files, 
since few files will contain information of exactly equal length. But in using random 
files, you are willing to waste a little disk space in order to gain the advantage of 
much faster disk access. 

The divided random file consists of records that are broken into varying-length 
parts or fields. Each record is the same length, but within each record the fields or 
parts of the record can be of varying lengths. In other words, a random access file 
that consists of records with a length of 100 characters or bytes can have each 
record divided into parts of equal or unequal lengths. The first field might be 25 
bytes (spaces) long, the second field 10 bytes, the third field 15 bytes and the last* 
field 50 bytes. The total number of bytes or characters equals 100, but no two fields 
need be the same length. 
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In our Mailing List System example, with random files that contained divided 
records, we could specify a certain length for the first name and other lengths for 
the last name, city, zip code, and so on. Each record, therefore, could contain a 
complete set of the information needed for the Mailing List System. Under sequential 
access, the complete set of information usually required six or seven records (lines). 
For instance, if we decide that each line of information or each record would have 
no more than 150 characters in it, we could further decide that the first field of 
each record would exist from byte to byte 10, the second from byte 1 1 to byte 
15, the third field from byte 16 to byte 30, and so on. Each record could contain 
the first name in the first field, the middle initial in the second field, the last name 
in the third field, the numerical address in the fourth field, the street address in the 
fifth field, any apartment number etc. in the sixth field, the city in the seventh field, 
the state in the eighth field, and the zip code in the ninth field. Under this setup, 
it would be easy to access any part of any record in any order we desire. For 
example, if we just want the zip code and first name in that order, we would have 
no trouble accessing just that information. 

I have been using the term byte in connection with the word character so that 
you might get used to the idea that the length of a record is measured in bytes. 
Each character or number is one byte. If a file has equal-length records of 50, that 
is 50 bytes. If the second field begins 27 characters from the first character, that 
is the 27th byte of the record. To access that byte, we set the position parameter 
to the desired location. 

At this point, a short tutorial may best explain the exact syntax and operation 
of random-access files. Take a formatted diskette that has plenty of room on it or 
format a new one (refer to Chapter 2 if necessary). Load the DOS Wedge from the 
TEST/DEMO diskette (refer to Chapter 3). Enter the following program (in lower 
case mode): 

100 rem ***~random file example-*** 
110 : 
120 : 

130 rem **~file output routine-** 

140 open 2,8,1 5:rem open command chni 

150 open 3,8,4,"random example,!," + chr$(50) 

160 for i = 1 to 25 

170 gosub 1000:rem figure rec.# routine 

180 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$( 1) 

190 print#3,"record";i 

200 print#2,"p";chr$(4);chr$(riow);chr$(rhigh);chr$(20) 
210 print#3,"abcdef";i 
220 next i 

230 close 3: close 2 

240 input "Press 'RETURN' to continue: ";r$ 
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250 : 
260 : 

1000 rem **--figure rec.# routine-** 

1010 rlow = i 

1020 rhigh = 

1030 if rlow > 255 tlien 1050 

1040 return 

1050 rhigh = int(rlow/256) 

1060 rlow = rlow - 256 * rhigh 

1070 return 

There are a lot of different numbers in these routines, but if you have gone through 
the sequential access portion of this book, the numbers in the "open" statements 
should be familiar. For those who may have skipped over the sequential-access 
portion, 1 will briefly explain each value. The first number after the word "open" 
is the file number: 2 in line 140 and 3 in line 150. The 8 in both lines refers to the 
disk drive device number (random access is not available to tape users). The third 
number after the "open" command is the channel number. For disk use, channel 
numbers should normally be between 2 and 14. The number 15 in line 140 is 
reserved for the operating system's command channel. Quite often the file number 
and the channel number are arbitrarily assigned the same number to avoid the need 
to remember additional numbers. In this case, I intentionally assigned different 
numbers in order to more clearly distinguish which values should be used at specific 
times. 

Line 150 contains additional differences. First, there is no longer the need to 
indicate the type of file or the access mode. Second, the "L" or "1" parameter must 
be included with separating commas. Third, the actual length of each record must 
be specified within the chr$ parentheses. As stated previously, random access files 
must consist of equal-length records. This means that you must decide on the length 
of the longest record you will ever have. In this example, the length is specified 
as 50. In other words, each record in this file called "random example" will have 
50 spaces available to it. Again, this does not mean that each record must actually 
contain 50 characters, but that no record may contain more than 50 characters. 

Line 160 defines the dimensions of our loop used to quickly and easily write 
information to this file. We are going to have 25 records, so the value of the numeric 
variable (' will vary from 1 up to 25. Line 170 sends control to a subroutine located 
at line 1000. All the code in this subroutine could have been included in the program 
at this point, but 1 chose to put this code into a subroutine because other portions 
of our example program will eventually need to make use of the exact same in- 
structions. The purpose of this subroutine is stated in the title. The routine is designed 
to separate the decimal value of the record number into its low-byte and high-byte 
values. 

It is at this point that confusion usually begins. All the numbers specified in 
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chr$ statements are decimal numbers (base 10) except the number used to determine 
which record we are accessing. That number, in Commodore's operating system, 
must be expressed in something like a base 256 format. This means that the number 
20, for example, would equal a for the high-byte value (the number 20 is less 
than 256) and a 20 for the low-byte value. In other words, if I wanted to see what 
was in record 20, I would tell the computer to show me what was in the record 
specified by: chr$(20) + chr$(0) (low-byte is specified first). If I wanted to see 
what was in record 258, I would tell the computer to show me what was in the 
record specified by: chr$(2) -I- chrS(l), or the value of the first number 2 added 
to the value of the second number. The value of that second number is not 1. 
Instead its value is 256. The high-byte value is multiplied by 256. If the high-byte 
value were 2, the first number (2) would be added to 512 (256 times 2). If the 
high-byte value is 3, the first number is added to 768 (256 times 3), etc. The routine 
at 1000 is used to convert decimal value record numbers into their low-byte (rlow) 
and high-byte (rhigh) values. If you have not followed the explanation for this 
routine, you only need to know that the routine, or some similar set of instructions, 
is necessary in order to access the desired record number. Once the computer has 
a value for the numeric variables "rlow" and "rhigh", control can be returned to 
the file output routine. 

The following two paragraphs should be read very carefully! 

Line ISO is an example of what Commodore calls the "POSITION COM- 
MAND". This instruction is used to position the computer: (1) to the desired channel 
number, (2) to the desired record number, and (3) to the desired position within 
the specific record. The position of each of these values, relative to each other, is 
fixed and not arbitrary (i.e., channel number, low-byte record number, high-byte 
record number, position within the record). Since a string of numbers inside chr$ 
parentheses is not very descriptive, I prefer to assign the desired values to descriptive 
variables and use the variables in place of the actual numbers. Later, this method 
of using descriptive variables will be expanded; but for now the variables rlow and 
rhigh, as explained above, indicate the actual record number. 

180 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$( 1) 

The number immediately following the # symbol must be the file number used 
in the open statement for the specific file. In line 180, this number is a 2, which 
was the file number used with the operating system's command channel. The "p" 
is used to tell the computer that this is a "position command" instruction. The first 
number used inside chr$ parentheses in line 180 must be the channel number chosen 
for use with the random access file (i.e., the third number in the open statement 
for that file). This point has caused a great deal of confusion and probably is one 
reason some people have felt that similar programs act in different ways at different 
times. In this example, the 4 is the channel number and is the number to be used 
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in the first chr$ parameter. If the file number (3) is used instead, unpredictable 
results can occur. If both file number and channel number are the same, no problem 
should occur. Future programs will follow the convention of using the same number 
for both the file number and the channel number. The only reason it is not done 
in this example is to provide a clear distinction between the two numbers. 

The second and third chr$ () values are the low-byte and high-byte values for 
the record number. The last number in line 180 is the number Commodore indicates 
is optional. For all practical purposes this value is not optional and should be set 
to one even if the record will not be further divided. You should also notice that 
this number is the only value that is different in line 200. The last value used with 
chrS in the "position command" instruction is the specific position within the record 
for the current information (in either read or write mode). Therefore, chr$(l) in 
line 1 80 indicates that the first piece of information is to begin in the first space of 
the record. The chr$(20) in line 200 indicates that the second piece of information 
is to begin at the twentieth space of the record. The information that is to be written 
in those two locations is given in the line that follows each (190 and 210). The 
number after the # symbol in line 190 is the file number of the random access file 
specified in the open command (line 150). The information (in either constant or 
variable form) that follows the comma is the information that is written to the 
diskette. In line 190, that information consists of the word "record" and the value 
of the variable In line 210, the information consists of the characters "abcdef" 
and the value of the variable Line 230 closes both files once the value of / has 
exceeded the number specified in line 160. Line 240 is our method of pausing 
before the next routine. 

300 rem **-file input routine-** 

310 open 2,8,15:rem open command chni 

320 open 3,8,4, "random example,!," + chr$(50) 

330 for 1 = 1 to 25 

340 gosub 1000:rem figure rec.# routine 

350 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$( 1) 

360 input#3,a$ 

370 print a$; 

380 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

390 input#3,b$ 

400 print tab(15) b$ 

410 next 1 

420 close 3:close 2 

430 input "Press 'RETURN' to continue: ";r$ 
440 : 
450 : 

This routine is essentially the same as the file output routine, with the only real 
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difference occurring in lines 360, 370, 390, and 400. In those lines, information 
is obtained from the diskette and then displayed on the screen instead of written to 
the diskette. Notice the semicolon at the end of line 370. It is there for screen 
formatting purposes only. In all other aspects, the parameters within the routines 
are the same with the same meaning. The parameters do not need to be the same 
as those used in the file output routine (i.e., when information is written to the 
diskette), but it is often easier to keep track of which number goes where if the 
same numbers are used. The one exception to this rule is the position parameter. 
If these numbers are not kept the same, unintended results will occur. In other 
words, the last numbers in lines 350 and 380 should be the same as those used in 
lines 180 and 200. Otherwise, file numbers and channel numbers (except channel 
15) can be changed as long as the previously accessed file output routine has closed 
the files. 

The files need to be closed in a specific order also. Regardless of the number 
of files used, the command channel file must be the last file closed. If it is closed 
before the random access file is closed, file errors might occur. The display lines, 
lines 370 and 400, do not need to be located where they are. They can be placed 
anywhere before the "next i" instruction. The last routine provides an example of 
the ability to access any of these records at random. 

500 rem **--random access routine--** 

510 input "Which record number ";nb$ 

520 nb = val(nb$) 

530 if nb = then 900: rem end 

540 if nb > 25 then 510:rem ask again 

550 i = nb:gosub 1000:rem figure rec.# 

560 open 2,8,1 5: rem open command chni 

570 open 3,8,4,"random example,!," + chr$(50) 

580 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

590 input#3,b$ 

600 print b$; 

610 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$( 1) 

620 input#3,a$ 

630 print tab(15) a$ 

640 close 3: close 2 

650 goto 510 

660 : 

670 : 

900 rem **~end routine--** 
910 end 
920 : 
930 : 
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This routine provides the first real example of what random access is all about. 
The user can indicate any record number between 1 and 25 in line 510, and the 
computer will go to that record number and obtain the information in whatever 
order the programmer has specified. Notice that I turned the position statements 
around. The first information obtained and displayed is the information stored 
beginning at the twentieth byte or space in the record. The second piece of infor- 
mation obtained is the information stored at the first byte or space of the record. 
And the record numbers do not have to be given in order. We can ask for record 
21 and then ask for record 2. Or, ask for record 9 and then record 19. The order 
does not matter, because the computer has been instructed to go directly to the 
specified record and the specified location within that record. Once again, the same 
values were used for all parameters, but with the exceptions noted in the description 
of the file input routine, these parameters could have different values. 

When you have finished entering the program instructions, save them to the 
diskette as "random test 1". 

♦-random test 1 

Then, run the program: 
run 

For a short time, the disk drive red light should come on and the cursor should 
disappear. Eventually, the statement from line 240 will be displayed on the screen 
and the red disk light will go out. When you are ready, press the RETURN key 
and watch the screen carefully. Two columns should appear. If you do not get two 
columns on the same line, check line 370 for the semicolon. The left-most column 
should contain the word "record" (or RECORD if you are in upper case mode) and 
an increasing number, up to the number 25. The right-most column should contain 
the characters "abcdef" (or "ABCDEF") and the same increasing number, up to 
25. When the number 25 has been reached, the statement from line 430 should be 
displayed. 

Again, when you are ready, press the RETURN key. Now, you will be asked 
to indicate which record number you wish to see. Indicate record number 11. This 
time you should see two columns but in reverse order. The characters "abcdef 1 1" 
should be in the left-most column and the word "record 1 1 " should be in the right 
hand column. At this point, you can try out additional record numbers. I would 
also encourage you to experiment with different combinations of these instructions 
and parameters just to see what happens. You can also substitute the word "GET#" 
for the word "INPUT#". 
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MEDICAL RECORDS SYSTEM 



With this background, we are going to go over what I hope is a useful program. 
The example is a file used to store personal family medical records. In these random 
file examples, I will not go over all the routines as I did in the sequential file 
examples. Instead, I will concentrate on the file routines. The complete listing for 
the program will be found at the end of the chapter. 

If you take a look at the complete listing, you will see that we begin with a 
menu routine. The first thing that needs to be done the first time the program is 
used is to set the value of the record pointer to zero and write that value out to a 
sequential file. After setting the pointer value that first time, the program instructions 
automatically update the pointer value . The record pointer file is used to keep track 
of the total number of records in the random file. 

■ Fi/e Output Routine 

Next comes a keyboard input routine in order to obtain our original information. 
We are asking the user to supply: (1) the name of the individual (name$), (2) the 
date (dte$), (3) the type of record, that is, whether it is a record of a Dr. Visit, 
Medication, Illness, Accident or Injury, Shot or Immunization, or X-ray (type$), 
and (4) any miscellaneous information such as the name of the medication and 
frequency of use, the kind of illness, location of injury, and so on (misc$). Once 
we have all our information and have verified that it is correct, we are ready to 
write that information out to the disk file. 

1700 rem **--file output routine--** 
1705 : 

1710 rem *-pointer file-* 

1715 rem must set ptr. before first use 

1720 open 2,8,2, "med-records.ptr,seq, read" 

1725 input#2,ptr 

1730 close 2 

1735 ptr = ptr -f- 1 

1740 : 

1745 rem *-data file-* 

1750 open 15,8,15:rem open command chni 

1755 open 3,8,3, "med-records,l," -f- chr$(50) 

1760 rem I in line 1755 is letter not # 

1765 rem 50 in line 1755 is rec.length~not # of records 

1770 chnl$ = chr(3):rem channel # 

1775 rlow = ptr: rem low byte of rec.# 

1780 rhigh = 0:rem high byte of rec.# 
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1785 if rlow > 255 then gosub 15000 
1790 rec$ = chr$(rlow) + chr$(rhigh) 
1795 : 

1800 pztn$ = chr$( 1):rem position 
1805 print#15,"p";chnl$;rec$;p2tn$ 
1810 print#3,name$ 
1815 : 

1820 pztn$ = chr$(15):rem position 
1 825 pri nt# 1 5, " p",ch n 1$; rec$; p2tn$ 
1830 print#3,dte$ 
1835 : 

1840 pztn$ = chr$(26):rem position 
1 845 print#15,"p";chnl$; rec$; pztn$ 
1850 print#3,type$ 
1855 : 

1860 pztn$ = chr$(28):rem position 
1865 print#15,"p";chnl$;rec$;pztn$ 
1870 print#3,misc$ 
1875 close 3:close 2 
1880 : 
1885 : 

1890 rem *-update ptr file-* 

1895 open 2,8,2,"@0:med-records.ptr,seq,write" 

1900 print#2,ptr 

1905 close 2 

1910 goto 500:renn menu 
1915 : 
1920 : 
1925 : 



There are three parts to this output routine. The first part (lines 1710-1735) accesses 
the pointer file and updates the pointer value. The second part (lines 1745-1875) 
defines the data file and writes the information to it. Finally, the last part (lines 
1890-1905) again accesses the pointer file, this time to write out the new value of 
the pointer. We are concerned with the second part since that is the part that deals 
with a random access file. 

Line 1750 opens the operating system's command channel as file number 15. 
Line 1755 opens the random access file "med-records" as file number 3 on channel 
number 3 with a length of 50 bytes available for each record. The two rem lines, 
1760 and 1765, clarify two points in line 1755. The lower case 1 on some printers 
looks the same as the number 1 . It is very important to understand that the character 
1 in line 1755 is the lower case letter 1 and not the number 1. In addition, you 
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should clearly understand that the number inside the parentheses specifies the length 
of each record rather than the total number of records. 

Line 1770 is the first line used to help make the parameters, in the "position 
command" instruction, descriptive. The string variable chnl$ is used to store the 
value of the channel number. Since that value is used with the chr$ instruction, a 
string variable can be used to describe the complete instruction with its value. Line 
1775 defines the numeric variable "rlow" as equaling the current value of the pointer 
(ptr) or the total numberof records so far plus one (line 1735). Line 1780 establishes 
the value of the high-byte part of the record number as zero. This value should 
only change if the number of records goes above 255 (line 1785). If the number 
of records does get above 255, the routine at 15000 converts the record number to 
its appropriate low-byte and high-byte values. Line 1790 combines the chr$ values 
of both rlow and rhigh into the single string variable rec$. Once again, this is 
possible because the values were expressed as chr$ values. At this point, we have 
the channel number in the chnl$ variable and the record number in the rec$ variable. 
Line 1800 defines the current position within the record that we want to write our 
first information to. The pztn$ variable (for position) can also be used, because the 
value of the position within the record is defined with a chr$ statement. (The variable 
cannot be pstnS due to the embedded reserved word "st" used to indicate the status 
of an input/output operation.) The "position command" instruction now becomes 
(line 1805); print# 15,"p";chnl$;rec$;pztn$. This is more descriptive and under- 
standable than the format suggested in the 1541 User's Manual: 
print# 1 5 ,"p"chr$(3 )chrS( 1 )chrS(0)chr$( 1 ). 

The same sequence is followed for the rest of the information that is to be 
written to the file. The position variable needs to be set before every "position 
command" instruction or the next information will write over the information just 
written in that location . As soon as the last piece of information for this record has 
been written, the random access file is closed and then the operating system com- 
mand channel is closed. 

One point should be emphasized before moving on. Notice that it is not nec- 
essary to use string arrays: name$(). We do not have to use string arrays because 
of the versatility of random files. In this program, the information for a complete 
record is written to the disk before additional information is obtained from the user. 
The idea that we can use the disk without extensive use of string arrays will become 
more apparent with the section on reading and displaying our medical information. 

■ Fi/e Input Routine 

We move now to the section of our program that allows us to see the information 
we have stored in the "med-records" file. In this first section, we read the file and 
immediately display the information. 
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2000 rem **--read file routine--** 
2010 gosub 10000:rem display routine 
2020 : 

2030 rem *-pointer file-* 

2040 open 2,8,2,"med-records.ptr,seq,read" 

2050 input#2,ptr 

2060 close 2 

2070 : 

2080 rem *-data file-* 

2090 open 15,8,15:rem command channel 

2100 open 5,8,5,"med-records,l," + chr$(50) 

2110 rem I in line 2100 is letter not # 

2120 chni$ = chr$(5):rem channel # 

2130 for rec = 1 to ptr 

2140 rlow = rec:rhigh = 

2150 if rlow > 255 then 15000 

2160 rec$ = chr$(rlow) + chr$(rhigh) 

2170 print 

2180 : 

2190 : 

2200 pztn$ = chr$( 1):rem position 
2210 print#15,"p";chnl$;rec$;pztn$ 
2220 input#5,name$ 
2230 : 
2240 : 

2250 pznt$ = chr$(15):rem position 
2260 print#15,"p";chnl$;rec$;pztn$ 
2270 input#5,dte$ 
2280 : 
2290 : 

2300 pztn$ = chr$(26):rem position 
2310 print#15,"p";chnl$;rec$;pztn$ 
2320 input#5,type$ 
2330 : 
2340 : 

2350 pztn$ = chr$(28):rem position 
2360 print#15,"p";chnl$;rec$;pztn$ 
2370 input#5,misc$ 
2380 : 
2390 : 

2400 rem *-display information-* 

2410 gosub 16000:rem get full type msg. 
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2420 : 

2430 rem clear screen/crsr down 5 
2440 print home$:cd = 5:gosub 9000 
2450 : 

2460 print: print#file,""tab{tb) "1. NAME: ";name$ 
2470 print:print#file,""tab(tb) "2. DATE: ";dte$ 
2480 print:print#file,""tab(tb) "3. TYPE: ";tp$ 
2490 print:print#file,""tab(tb) "4. MISC: ";misc$ 
2500 print:print#file,""tab(tb) 

2510 print "Press ";wht$;"RETURN";brn$;" to continue:"; 
2520 gosub 19000:renn return key routine 
2530 next rec:rem dsp next set of info. 
2540 : 
2550 : 

2560 close 5:close 15 

2570 print honne$:cd = 5:gosub 9000 

2580 print tab(tb + 3):print rvs$;"ALL FINISHED" 

2590 cd = 10:gosub 9000:rem crsr down 10 

2600 gosub 20000: rem menu return routine 

2610 goto 500:rem menu 

2620 : 

2630 : 

2640 : 

The first thing that is done is to name the routine (hne 2000) and ask if the user 
wants a paper printout (hne 2010). Next, the pointer file is accessed and the value 
of the pointer (the number of records currently in the data file) is stored in the 
numeric variable "ptr". It is not necessary to immediately close the pointer file 
(med-records.ptr), but it is a good programming habit. In line 2090, the operating 
system command channel is opened with the data file, "med-records", opened in 
line 2100 as our third accessed file. It is defined as having records of 50 bytes or 
characters in length. Line 2120 sets the channel number to five because the number 
three channel might already be opened by the display routine. Lines 2140 to 2160 
establish the necessary values for the record indicator with lines 2200 to 2370 nearly 
duplicating lines 1800 to 1870 of the file output routine. The only difference comes 
in the third line of each set. This time we are bringing information in (input#) 
instead of writing information out (print#). Again, the middle line of each set is 
the "position command" instruction and clearly indicates that we are providing the 
computer with the channel number, the record number, and a position within the 
specified record. Once we have values for all the desired variables, we proceed to 
the display portion of the routine — lines 2400 to 2500. Lines 2510 and 2520 wait 
until the user presses the RETURN key. When the RETURN key is pressed, the 
process begins again with the next set of information obtained by reading the next 
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record in the data file. The entire routine is repeated until the complete file has 
been read and displayed. 

The subroutine at 16000 has a very specialized purpose. The purpose of this 
subroutine is to match the single character symbol with its complete corresponding 
"type" name: for example, exchange "d" for "Dr. Visit". Once the exchange has 
been made, control is returned to the statement immediately following the GOSUB 
statement. Then, instead of displaying the value of the variable we brought in from 
the diskette, we display the value of the variable "tp$" obtained from the subroutine. 

The only section of the program left to examine is the search routine. Lines 
3000 to 3250 establish exactly what we will be searching for, and lines 3280 through 
3750 conduct the actual search and display the results. 

3280 rem **--file input routine--** 
3290 : 

3300 rem *-pointer file-* 

3310 open 2,8,2,"med-records.ptr,seq,read" 

3320 input#2,ptr 

3330 close 2 

3340 : 

3350 rem *-data file-* 

3360 open 1 5,8,1 5:rem open cmnd chni 

3370 open 5,8,5,"med-records,l," -I- chr$(50) 

3380 rem I in line 3370 is letter not # 

3390 In = len(srch$):chnl$ = chr$(5) 

3400 for rec = 1 to ptr 

3410 rlow = rec:rhigh = 

3420 if rlow > 255 then 15000 

3430 rec$ = chr$(rlow) + chr$(rhigh) 

3440 : 

3450 print#15,"p";chnl$;rec$;pztn$ 
3460 input#5,find$ 
3470 : 

3480 cvt$ = left$(find$,ln) 
3490 gosub 17000:rem convert to I.e. 
3500 if srch$ <> cvt$ then 3750 
3510 : 

3520 for k = 1 to 4 
3530 if k = 1 then pt$ = chr$( 1) 
3540 If k = 2 then pt$ = chr$(15) 
3550 if k = 3 then pt$ = chr$(26) 
3560 if k = 4 then pt$ = chr$(28) 
3570 pri nt# 1 5, " p " ; ch n 1$; rec$; pt$ 
3580 input#5,info$(k) 
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3590 if k = 3 then type$ = info$(k):gosub 16000:info$(k) = tp$ 
3600 next k 
3610 : 
3620 : 

3630 rem *-clisplay information-* 



3750 next rec 
3760 : 
3770 : 

3780 close 5:clcse 15 

This is an elementary search and display routine. Lines 3300 to 3330 open the 
pointer file and obtain the value of the pointer. The data file is then opened (line 
3370) and defined. 

Next comes a technique that allows the user to search for just the beginning 
portion of a field in case the user does not know the complete spelling of the entire 
field. The search is limited to just the number of characters the user has supplied 
in answer to the question in line 3200 (see the program listing at the end of this 
chapter). We determine this number (line 3390) and then use the number in 3480 
to limit the number of characters that will go through the process of conversion to 
lower case. Once those characters have been converted to lower case, we can 
compare then to the characters supplied by the user (srch$). If they are not equal, 
the computer is instructed to increment the value of "rec" and proceed. 

Line 3400 establishes the boundaries for a loop. Within that loop, we look for 
just the desired part of each record. When that part is located, the rest of the 
information associated with that part is read in (3520 to 3600) and displayed (lines 
3630 to 3710). Those instruction-lines are skipped for information that does not 
match or equal the string variable for which we are searching (line 35(X)). When 
the entire file has been searched, the file is closed, and control is transferred back 
to the beginning of the search routine to see if the user wishes to search for more 
information. 

This program provides a reasonable example of the techniques involved with 
creating, adding to, and reading from a random access file. It does not get too 
fancy, yet it is a useful program. You may want to supply additional routines. 

At this point, you should find yourself capable of "reading" a program listing. 
As we progress through the book, the amount of text decreases while the amount 
of program instructions that you should "read" increases. In Chapter II, we will 
use random files in a more elaborate manner. 

One additional comment needs to be made in concluding this chapter. There 
are a variety of ways of using random-access files of either the divided or undivided 
kind. The method presented in this chapter is not meant to suggest itself as the only 



248 CHAPTER TEN 



method or even the best method. It is a method that does work and is understandable. 
In working with files, I have found that comprehension is of more value than 
program efficiency or speed. And one cautionary note; things don't always function 
as they seem they logically should, especially when working with random files of 
the undivided kind. For this reason, I would not encourage extensive use of the 
undivided type of random files until you are very comfortable with the way they 
operate. 



QUEST/ONS 

1. Name the two kinds of random files. 

2. True or False: Random files can contain records of different lengths. 

3. What are the two BASIC words used to obtain information from a diskette and 
place information on a diskette? 

4. True or False: In random files, the next record begins inmiediately after the 
last character in the previous record. 

5. What parameter must an OPEN command have in a random file? 

6. True or False: Random files waste disk space but have much faster disk 
access than do sequential files. 

7. True or False: The relationship that exists between the various parts of a 
divided random-access file can be defined in the following way. A random- 
access file consists of equal-length records. Each record may consist of equal 
and/or unequal length fields. The number following the L parameter in an 
OPEN statement indicates the length of each record. 

8. What is the length of each record measured in? 

9. True or False: Random files require greater use of string arrays than do 
sequential files. 
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ANSWERS 



1. Divided and undivided random files 

2. False 

3. INPUT#, PRINT# 

4. False 

5. L 

6. True 

7. True 

8. Bytes 

9. False 
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■ Program for RANDOM FILE 
EXAMPLE 



100 rem * * * - - r a n d o m file example--*** 
110 : 
120 : 

130 rem *-''--file output routine--** 

140 open 2,8,15:rem open command chnl 

150 open 3 , 8 , 4 , " r a ndom example, 1," + chr$(50) 

160 for i = 1 to 25 

170 gosub lOOOrrem figure rec,# routine 

180 print#2 ,"p" ;chr$(4) ;chr$(rlow) ;chr$(rhigh) ; chr$( 1) 
190 print#3 , "record" ; i 

2 00 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

210 print#3,"abcdef";i 

220 next i 

230 close 3:close 2 

240 input "Press 'RETURN' to continue: ";r$ 
250 : 
260 : 

300 rem * * - - f i 1 e input routine--** 

310 open 2,8,15:rera open command chnl 

320 open 3 , 8 , 4 , "random example, 1," + chr$(50) 

330 for i = 1 to 25 

340 gosub 1000:rem figure rec,# routine 

350 print#2,"p";chr$(4) ;chr$(rlow) ;chr$(rhigh) ;chr$( 1) 
360 input#3,a$ 
370 print a$; 

380 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

390 input#3,b$ 

400 print tab(15) b$ 

410 next i 

420 close 3: close 2 

430 input "Press 'RETURN' to continue: ";r$ 
440 : 
450 : 

500 rem ** — random access routine — 
510 input "Which record number" ;nb$ 
520 
530 

540 if nb > 25 then 510:rem ask again 
550 
560 

570 open 3 , 8 , 4 , "random example, 1," + chr$(50) 
580 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

590 " 
600 print b$; 
610 
620 

630 print tab(15) 
640 close 3:close 2 
650 
660 : 
670 : 

900 rem **--end routine-- 
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910 end 
920 : 
930 : 

1000 rem * * - - f i g u r e r e c . # r o u t i n e - - =■= 
1010 rlow = i 
1020 rhigh = 

1030 if rlow > 25'') then 1051) 
1040 return 

1050 rhigh = int(rlow/256) 

1060 rlow = rlow - 256 * rhigh 

10 70 return 
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■ Program for MEDICAL REC.SYS. 



100 

no 

120 
130 
1 40 
1 50 
160 
170 
180 
J90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
3 20 
330 
340 
3 50 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
495 
496 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



--medical records syst. 



rem 

h orae $ 
:cd$ 
: cu$ 
: cl$ 
: cr $ 
blk$ 
y lw$ 
wht$ 
r V s $ 
bnk$ 
brn$ 
bue$ 



- - - 1 n 1 1 J ii 1 1 z 



chr $ 
chr $ 
chr $ 
chr$ 
c hr $ 
chr $ 
chr S 
chr $ 
chr $ 
chr$ 
chr $ 
chr$ 



147) 
17) 
145) 
157) 
29) 
144) 
1 58) 
5) 
18) 
10) 
149) 
31) 



1 1 1 o n - - '■• 

:rera clr/horae 

: rem cursor d own 

: rem cursor up 

:rem cursor left 

:rem cursor right 

: rem b lack 

:rem yellow 

: rem white 

:rem reverse video 

:rem blank line 

: rem brown 

: r em blue 



poke 53280, 6:rem border = blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 7:rem set bkgrd to ylw. 



rem 


** — V a r 


i a b 1 e s list--** 


rem 


r 1 ow 




low byte of rec.# 


r m 


r h i g h 




high byte of r e c . # 


rem 


file 




file # In open cmnd 


rem 


d V ic 




device # in open cmnd 


rem 


cmnd 




command # in open cmnd 


rem 


ptr 




pointer for # of reed's 


rem 


c h n 1 $ 




channel # in open cmnd 


rem 


rec$ 




rec.# from rlow & rhigh 


rem 


p f t n $ 




position within record 


r e m 


n a m e $ 




name associated w/info. 


r e 111 


dteS 




date of medical info. 


rem 


type$ 




type of medical info. 


rem 


m i s c $ 




misc. medical info. 


rem 


cvt$ 




convert to lower case 


rem 


s r c h $ 




search for info. 


rem 


f ind$ 




info, in data file 


rem 


inf o$ 




associated srch$ info. 



rem •'-•■•--menu — -■ ■•• 

tb = 8:rem tab value--8 spaces rt, 
print home$:rem clr/horae 
print wht$ 
print tab(tb) 
print r vs$ ; 

print "MEDICAL RECORDS MENU" 
print brn$ 
print:print tab(tb) 
print "1. WRITE RECORD" 
print:print tab(tb) 
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6 1 

620 

630 

6A0 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

lOAO 

10A5 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1 1 10 

1115 

1120 

1125 

1 130 

1135 

1 140 

1145 

1150 



p r i n t 

pr int 

print 

print 

print 

print 

print 

print 

print 

print 

poke 

input 

numbe 



"2. READ RECORD" 
:print tab(tb) 

"3. SEARCH RECORD" 
: print tab( tb) 

"4. SET POINTER" 
:print tab(tb) 

"5. LIST OF FILES" 
:print tab(tb) 

"6. END SESSION" 
: print tab ( tb ) 
19,32:rem disable input ? 

"Which Number Please? ";nu< 
r = val(nu$) 



if 


number = 


1 


then 


1000 


if 


number = 


2 


then 


2000 


if 


number = 


3 


then 


3000 


if 


number = 


A 


then 


AOOO 


if 


number = 


5 


then 


5000 


if 


number = 


6 


then 


6000 



gosub 14000:rera incorrect choice 
goto 500:rera display menu again 



rem --write record routine-- 
rem clear screen/crsr down 5 
print home$:cd = 5:gosub 9000 



rem *-name information-* 

print "Type in individual's name please: " 
print: input narae$ 

if len(name$) > 13 then name$ = left$(name5 
print: print 



rem * - d a t e information-* 

print "Type in the date in the form: 2-9-86. 
print:input dte$ 

if len(dte$) > 10 then dte$ = 1 e f t $ ( d t e $ , 1 ) 



rem *-type of information-* 
gosub 11000:rera dsp info, types 
print t ab ( t b ) : i n pu t type$ 
cvt$ = type$ 

gosub 17000:rem convert to I.e. 
type$ = cvt$ 



rem *-misc . information-* 

rem clear screen/crsr down 5 

print horae$:cd = 5:gosub 9000 

print "Type in any misc. information; 

print: print 
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1155 
1 160 
1165 
1170 
1175 
1180 
1 185 
1 190 
1195 
1 200 
1 205 
1210 
1215 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1700 
1705 
1710 
17 15 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1 7 5 5 
17 60 
1 765 



for i 


= 1 to 21 






print 


chr$ ( 1 75) 


; 


: rem 


next 


1 






print 


:print:pri 


n 


t 


print 


"Do not g 





beyo 


rem c 


r s r up 5 






print 


c u $ ; c u $ ; c 


u 


$ ; cu$ 


input 


m i s c $ 






if le 


n ( ni 1 s c $ ) > 




2 1 Lh 


rem s 


trip exces 


s 


u n d e 


sp = 


2 1 : s $ = mi 


s 


c$ : go 



the end of the line!" 



mi sc$ = 
i ne char 



lef t$(misc$ , 21 ) 
iisc$ = s$ 



rem * 


-d ispl 


ay for c 


orrection-' 






g s u b 


1 6000 


: rem get 


full type 


msg . 


rem c 


lear s 


creen/ cr 


sr down 5 






print 


home$ 


:cd = 5: 


gosub 9000 






print 


: print 


t a b ( t b ) 


" 1 . NAME : 


If 


; name 


print 


: print 


tab(tb) 


"2. DATE: 


It 


; d t e $ 


print 


: print 


tab(tb) 


"3. TYPE: 


fl 


;tp$ 


print 


: print 


t a b ( t b ) 


"4. MISC: 


fl 


; mi sc 


print 


•.print 


tab(tb) 








print 


"Is t 


his c r r 


ect? " 






print 


: print 


tab(tb) 








gosub 


18000 


: rem y /n 


input routi 


ne 


if ye 


s$ = " 


y" then 


1700 






print 


: print 


tab( tb) 








input 


"Whic 


h number 


is wrong? 


n 


; nb$ 



nb 



val(nb$) 



if nb 
if nb 
print ; 
print; 
if nb 
if nb 
if nb 
if nb 



< 1 or nb > 4 then gosub 14000:goto 1480 
= 3 then gosub 11000:rem dsp info, types 
printrprint tab(tb) "Type in correct information 
input cinfo$ 
= lef t$ ( cinf 0$ , 1 3) : goto 
= lef t$(cinf o$, 10' 
= lef t$(cinf 0$ , 1 ) :gotol4G0 
= lef t$( cinf o$, 21 ): goto 1415 



print tab(tb) 
= 1 then name$ 
= 2 then dte$ 
= 3 then type$ 
= 4 then misc$ 



1415: 
: goto 1415: 



rem 
rem 
rem 
rem 



ask 
ask 
ask 
ask 



again 
again 
again 
again 



-file output routine- 



rem 


* - p i n L e r file-* 






r e 111 


must set ptr. before fir 


St 


use 


p e n 


2,8,2,"med-records.ptr, 


seq 


.read" 


i n pu 


t#2,ptr 






c 1 s 


e 2 






ptr 


= ptr + 1 






rem 


* - d a t a file-* 






open 


15,8,1 5 ;rem open comman 


d c 


hnl 


open 


3,8,3,"med-records,l," 


+ 


chr$(50) 


r e III 


1 in line 17 5 5 is letter 


no 


t # 


rem 


50 in line 1755 is rec.l 


eng 


th--not # 



of records 
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1770 chnl$ = chr5(3):rem channel # 
1775 rlow = ptr:rem low byte of rec.# 
1780 rhigh = 0:rem high byte of rec.# 
1785 if rlow > 255 then 15000 
1790 rec$ = chr$(rlow) + chr$(rhigh) 
1795 : 

1800 pztn$ = chr$( l):rem position 
1805 print#15,"p";chnl$;rec$;pztn$ 
1810 print#3 , nanie$ 
1815 : 

1820 pztn$ = chr$ ( 1 5) : rem position 
1825 print#15,"p";chnl$;rec$;pztn$ 
1830 print#3,dte$ 
1 835 : 

1840 pztn$ = chr $ ( 26 ) : rem position 
184 5 print#15,"p";chnl$;rec$;pztn$ 
1850 print#3 , type$ 
1855 : 

1860 pztn$ = chr$(28) : rem position 
1865 print#l5,"p";chnl$;rec$;pztn$ 
1870 pr int#3 , misc$ 
1875 close 3:close 15 
1880 : 
1885 : 

1890 rem *-update ptr file-* 

1895 open 2 , 8 , 2 , "@0 : med-r ecor ds . pt r , seq , wr i te" 

1900 print#2,ptr 

1905 close 2 

1910 goto 500:rem menu 

1915 : 

1920 : 

1925 : 

2000 rem ** — read file routine — 
2010 gosub 10000:rera display routine 
2020 : 

2030 rem *-pointer file-* 

2040 open 2 , 8 , 2 , "med-records . ptr , seq , read" 
2050 input#2,ptr ' 
2060 close 2 
2070 : 

2080 rem *-data file-* 

2090 open 15,8,15:rem open command chnl 

2100 open 5 , 8 , 5 , "med-records , 1 , " + chr$(50) 

2110 rem 1 in line 2100 is letter not # 

2120 chnl$ = chr$(5):rem channel # 

2130 for rec = 1 to ptr 

2140 rlow = rec:rhigh = 

2150 if rlow > 255 then 15000 

2160 rec$ = chr$(rlow) + chr$(rhigh) 

2170 print 

2180 : 

2190 : 

2200 pztn$ = chr$( l):rem position 
2210 print#15,"p"; chnl$;rec$;pztn$ 
2220 input#5 , name$ 
2230 : 
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2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
23AO 
2350 
2360 
2370 
2380 
2390 
2A00 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
3000 
3010 
3020 
3030 
3040 
30 5 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 



pztn$ = chr$(15):reni position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,dte$ 



pztn$ = chr$(26):reni position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,type$ 



pztn$ = chr$(28):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,misc$ 



rem * 


-display in 


formation-* 








go s ub 


16000:rem 


get full type 


msg . 






rem c 


lear screen 


/crsr down 5 








print 


honie$:cd = 


5:gosub 9000 








print 


:print#file 


,""tab(tb) "1 


. NAME 




n a me $ 


print 


.•print#file 


,""tab(tb) "2 


. DATE 




dte$ 


print 


: print#file 


,""tab(tb) "5 


. TYPE- 


tt 


tp$ 


print 


: print # file 


,""tab(tb) "4 


. MISC- 


M 


mi sc $ 


print 


: print#file 


,""tab(tb) 








print 


"Press ";w 


ht $ ; "RETURN" ; brn$ ; " 


to 


continue:" 


gosub 


19000: rem 


return key routine 






next 


r ec : rem dsp 


next set of 


info. 






close 


5: close 15 










print 


home$ : cd = 


5:gosub 9000 









print tab(tb + 3):print rvs$;"ALL FINISHED" 
cd = 10:gosub 9000:rem crsr down 10 
gosub 20000:rem menu return routine 
goto 500:rem menu 



rem ** — search routine--** 
rem clear screen/crsr down 3 
print home$:cd = 3:gosub 9000 
print tab(tb) "SEARCH FOR...." 



print 


p r i n t 








print 


print 


tab( tb) 


"1 . 


NAME" 


print 


print 


tab( tb) 


"2. 


DATE" 


print 


print 


tab( tb) 


"3. 


TYPE" 


print 


print 


tab( tb ) 


"4. 


MISC" 


print 


print 


tab( tb ) 


"5. 


K\D SEARCH" 


print 


print 


ta b( tb ) 


"Which number? " 



nb = val(nb$) 

if nb = 1 then pztn$ = chr$( 1 ) : b$ = "NAME" 
if nb = 2 then pztn$ = chr$(15):b$ = "DATE" 



RANDOM (RELATIVE) FILE INTRODUCTION 257 



3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
33A0 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
35A0 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 



if 


nb 


= 3 


if 


nb 


= 4 


if 


nb 


= 5 


if 


nb 


< 1 



then pztn$ = chr$(28):b$ = "MISC" 
then 500:rem menu 

or nb > 5 then gosub 14000:goto 3000 



print : print : print tab(tb) "Which ";b$;:input "?";srch$ 
gosub 10000:rera display routine 

c vt $ = srch$ 

gosub 17000:rem convert to I.e. 
srch$ = cvt$ 



rem **--file input routine — ** 
rem * -pointer file-* 

open 2,8,2,"med-records.ptr,seq,read" 
input#2,ptr 

close 2 

rem *-data file-* 

open 15,8,15:rem open command chnl 

open 5 , 8 , 5 , "med-records , 1 , " + chr$(50) 

rem 1 in line 3370 is letter not # 

In = len(srch$):chnl$ = chr$(5) 

for rec = 1 to ptr 

rlow = rec:rhigh = 

if rlow > 255 then 15000 

rec$ = chr$(rlow) + chr$(rhigh) 

print#15,"p";chnl$; rec$;pztn$ 
input#5, find$ 

cvt$ = lef t $( f ind$ , In) 

gosub 17000:rera convert to I.e. 

if srch$ <> cvt$ then 3750 

for k = 1 to 4 

if k = 1 then pt$ = chr$( 1) 

if k = 2 then pt$ = chr$( 15) 

if k = 3 then pt$ = chr$(26) 

if k = 4 then pt$ = chr$(28) 
print#15,"p";chnl$;rec$;pt$ 
input#5, inf o$(k) 

if k = 3 then type$ = i n f o $ ( k ) : gosu b 1 6000 : in f o $ ( k ) 
next k 



rem * -display information-* 
rem clear screen/crsr down 5 
print home$:cd = 5:gosub 9000 



print:print#file,""tab(tb) 
print:print#file,""tab(tb) 
print:print#file,""tab(tb) 
print:print#file,""tab(tb) 



1 . 


NAME: 


" ; inf 0$ ( 1 ) 


2 . 


DATE: 


" ; inf o$( 2) 


5 . 


TYPE: 


" ; inf o$( 3) 


4. 


MISC : 


" ; inf o$(4) 
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3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3 7 9 
3800 
3810 
3820 
3830 
3840 
38 SO 

3 8 60 
3870 
3880 
3890 
3900 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 

4 3 2 
4330 
4340 
4350 



print: pr in t#file,""tab(tb) 

print "Press "; wht $; "RETURN "; brn $; " to continuf 
print : print : print 

gosub 19000:rem return key routine 
next r ec 



close 5 : c 1 o s c 15 

rem clear screen/crsr down 5 

print home$:cd = 5: gosub 9000 

print tab(tb + 3) "Search Completed!" 

cd = lOtgosub 9000 

print tab( tb) 

print "Press "; wh t $; "RETURN "; b rn $; " to continue: 
gosub 19000: rem return key routine 
close file 

goto 3000:rem search again 



rem — set pointer--''"'' 
print home$:rem clr/home 
print tab(tb + 5) "SET POINTER" 
print : print 

print "You should only need to set the pointer" 
print 

print "the first time the program is used." 
print 

print "That first time, the value should be" 
print 

print "set to a '0'. After that, if the ptr." 
print 

print "file MED-RECORDS . PTR is not erased, " 
print 

print "this routine should not be needed. If" 
print 

print "the pointer file is erased, use this" 
print 

print "routine to reset the value of the ptr." 
print 

print "to the correct number of records." 
print:print 

print "Press " ; wh t $ ; "RFTURN " ; br n$ ; " to continue; 

gosub 19000:rem return key routine 

print home$:cd = 3:gosub 9000 

print "Do you want to set a value for the " 

print 

print "pointer? "; 

gosub 18000:rera y/n routine 

if yes$ = "y" then 4310 

goto 500:rem menu 

print 

print "Type in a value for the pointer: "; 
input ptr$ 
print: print 

print "Is this the correct value: ";ptr$ 
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4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
9000 
9010 
9020 
9030 
9040 
9050 



print 

print "Type " ; wht$ ; "YES" ; brn$ ; " if it is: ";:input yes$ 
print 

if yes$ = "YES" or yes$ = "yes" then 4410 
goto 4000:rem begin again 

rem ^-pointer file-* 

print:print "ONE MOMENT PLEASE!" 

ptr = val(ptr$) 

open 2,8,2,"@0:med-records.ptr,seq,write" 
pr int#2 , ptr 
close 2 
print 

print "The pointer has now been set to: ";ptr 
cd = 5:gosub 9000:rem crsr down 5 

print "Press " ; w h t $ ; " RETU R N " ; b r n $ ; " to continue:"; 
gosub 19000:rem return key routine 
goto 500:rem menu 



rem **--list of files routine — ** 

print horae$:rem clr/home 

@"$":reni wed ge / d i ske 1 1 e directory 

print c u$ ; chr $ ( 1 3 ) : r em 13 = rtn 

print "Are you ready to return to the menu?" 

print 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 500:rera menu 
goto 5000:rem check again 



rem **--end routine--** 

poke 19,0:rem restore input prompt 

print home$:rera clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem crsr down routine 

print tab(tb - 5) 

print rvs$; 

print "That's all for this session!" 
print: print: print 
print tab(tb) 
print rvs$; 

print "See you next time." 
print brn$ 

cd = 10:rem 10 lines down 

gosub 9000:rem crsr down routine 

end 



rem ** — cursor down routine — ** 

for i = 1 to cd 

print cd$; 

next i 

return 
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9060 : 

10000 rem **--display routine--** 

10010 print home$:reni clr/home 

10020 cd = 3:rem 3 lines down 

10030 gosub QOOOrrem cursor down routine 

10040 print "Would you like a paper print out?" 

10050 print 

10080 gosub 18000:rem y/n input routine 
10090 if yes$ = "y" then 10120:rem prnt 
10100 if yes$ = "n" then 10300:rem scrn 
10110 : 

10120 print home$:rem clr/home 

10130 cd = 3:rem 3 lines down 

10140 gosub 9 000:rem cursor down routine 

10150 print "Please make sure the printer" 

1016 print 

10170 print "is on and ready to use." 
10180 print 

10190 print "Are you ready to begin printing?" 
10200 print 

10210 gosub 18000:rera y/n input routine 
10220 if yes$ = "n" then 10000 
10230 : 

10240 rem ^-printer display-* 
10250 file = 4 
10260 dvic = 4 
10270 cmnd = 7 

10280 goto 10500: rem open instruction 
10290 : 

10300 rem * -screen display-* 
10310 file = 3 
10320 dvic = 3 
10330 cmnd = 1 

10340 goto 10500:rem open instruction 
10350 : 
10360 : 

10500 rem *-open instruction-* 
10510 open f i le , d v i c , cmnd 
10520 return 
10530 : 
10540 : 
10550 : 

11000 rem ** --display type info--** 
11010 rem clear screen/crsr down 2 



11020 


print 


home$ : cd 




2:gosub 9000 


1 1030 


print 


tab( tb) 






1 1040 


print 


rvs$ ; "TYPE 


OF RECORD" 


11050 


print 


print 






11060 


print 


tab(tb) 


"D- 


-Dr. visit" 


1 1070 


print 








1 1080 


print 


tab(tb) 


"M- 


-Medication" 


1 1090 


print 








1 1100 


print 


tab ( tb ) 


"I- 


-Illness" 


11110 


print 








11120 


print 


tab(tb) 


"A- 


-Accident/injury 


11130 


print 
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11140 print tab(tb) 

11150 print 

11160 print tab(tb) 

11170 print 

11180 print tab(tb) 

11190 print tab(tb) 

11200 print 

11210 return 

1 1220 : 

1 1230 : 

11240 : 



12000 


rem 


** — strip 


excess underline character 


12010 


s2$ 


= s$ 




12020 


i = 


1 




12030 


if m 


id$(s2$ , i , 


1) = chr$(175) then 12070 


12040 


i = 


i + 1 




12050 


if i 


> s p then 


12070 


12060 


goto 


12030 




12070 


s$ = 


lef t$(s2$ 


,i - 1) 


12080 


r e t u 


rn 




12090 








12100 








12110 








14000 


rem 


*-iiicorrec 


t choice message-* 



14010 print:print tab(tb) 

14020 print rvs$; "Incorrect Choice!" 

14030 print:print tab(tb) 

14040 print "Press "; wht$ ; "RETURN" ; brn$ ; " to continue:"; 

14050 gosub 19000:rem return key routine 

14060 return 

14070 : 

14080 : 

14090 : 



15000 


rem 


figure 


rec.# routine — ** 


15010 


rhigh = 


int(rl 


ow/256) 


15020 


r 1 ow 


r low - 


256 * rhigh 


1 5030 


return 






1 5040 








15050 








15060 








16000 


rem * - - 


full t 


ype message--** 


16010 


if type$ 


= "d" 


then tp$ = "Dr. visit" 


16020 


if type$ 


= "ra" 


then tp$ = "Medication" 


16030 


if type$ 


= "i" 


then tp$ = "Illness" 


16040 


if type$ 


= "a" 


then tp$ = "Accident/ injury" 


16050 


if type$ 


= "s" 


then tp$ = " Sho t / immun i za t i on 


16060 


if type$ 


= "x" 


then tp$ = "X-Rays" 


16070 


return 






16080 








16090 








16100 








17000 


rem * * - - 


c o n V e r 


t to lowercase--** 


17010 


nc$ = "" 






17020 


for c V = 


1 to 


1 e n ( c V t $ ) 



17030 X = asc(mid$( c vt$ ,cv , 1 ) ) 
17040 if X > 192 then x = xl - 128 



"S--Shot/iniraunization 
"X--X-Ray" 

"Which type of record?" 
"(Type: D,M,I,A,S, or X. )" 
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17050 nc$ = nc$ + chr$(x) 
17060 next cv 
17070 : 

17080 cvt$ = nc$ 

17090 f = asc( lef t$( cvt $ , 1 ) ) 

17100 f = f + 128 

17110 nc$ = chr$(f) + r i g h t $ ( c v t $ , 1 e n ( c v t $ ) - 1) 
17120 return 
17130 : 

171A0 rem cvt$ = converted to lowercase 
17150 rem nc$ = 1st 1 e t t e r /u ppe r case 
17160 : 
17170 : 

17180 : 

180 rem * * - - y / n input routine--** 

18010 print "Type a " ; wht $ ; " Y " ; brn $ ; " or " ; wh t $ ; "N " ; b r n $ ; " :" 
18020 poke 19,32:rera disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yesS = "Y" then yesS = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r v s$ ; " I nco r r ec t Choice !"; brn$ 
18090 print 

18100 goto 18000:rem begin again 
18 110 : 
18120 : 
18130 : 

19000 rem ** -return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek ( 1 97 ) : r em store key press 

19060 if X = 1 then 19080:reni 1 = rtn 

19070 goto 19050:rem if not 1 go back 

19080 poke 198,l:rem allow for cursor 

19090 poke 631,0:rem clr kbrd 

19100 nu$ = "":rem clr string variable 

19110 poke 19,32:rem disable input ? 

19120 return 

19130 : 

19140 : 

19150 : 

20000 rem **--menu return routine--** 
20010 print#file 
20020 close file 
20030 print 

20040 poke 19,32:rem disable input ? 

20050 print "Press "; wht$ ; "RETURN" ; brn$ ; " to go to Medical 
Menu : " 

20060 gosub 19000:rera return key routine 
20070 print 
20080 return 

ready . 
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home inventory 
system: advanced 
random access 

file manipulation 



We are going to look at a simple, yet fairly complete, random access system for 
home inventory. We will examine the file handling portions of the various programs 
in detail with the expectation of modifying them for use with other applications. 
The purpose of such modification is to suggest the possibility of the development 
of a general purpose data base system. 

There are seven programs in this home inventory system: "homeinv.menu", 
"homeinv. write", "homeinv.read", "homein v. search", "homeinv. correct", "home- 
inv. trans", and "homeinv. copy". Each program name attempts to describe the main 
function of the particular program. Homeinv.menu is the general menu that allows 
the user to easily switch among the other programs. Homeinv. write is used to create 
and add to the inventory file. Homeinv.read displays the entire inventory file in the 
order the information was entered. Homeinv. search is really the heart of the system. 
This program has a menu of its own with seven options. Six of these options relate 
to pulling specific information from the file and displaying it. The next program, 
"homein v. correct", allows the user to change or delete information in the inventory 
file. Homeinv. trans provides a translation of the inventory file into the DIP format. 
The final program, "homeinv. copy", produces a backup copy of the file on any 
diskette the user chooses. 
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CREATE HOME INVENTORY 



The "homeinv.menu", "homeinv. trans", and "homeinv.copy" programs do not con- 
tain any new programming code or code not contained in another program, so they 
will not be discussed. The first program we will look at is the "homeinv. write" 
program. The complete listing for this program is given at the end of this chapter. 
You will probably find it helpful to first look over the program before reading this 
description. 

There is one piece of code that needs explaining. Each of the input sections 
includes an "sp" value. This "sp" value is the number of spaces that the various 
inputs are allowed in the file. This value is checked to see that the user does not 
exceed the allotted amount. The "gosub" routine is used to print the varying number 
of underline spaces. 

Lines 1000 to 2000 are the instructions used to check the information and allow 
the user to change anything before the information is written to the disk. 

Lines 2000 to 3000 are the file-handling lines and will be discussed in detail. 

2000 rem **~file output routine-** 
2010 : 

2020 rem *-pointer file-* 

2030 open 2,8,2,"inventory.ptr,seq,read" 

2040 input#2,ptr 

2050 close 2 

2060 if status = 16 then 3000 
2070 ptr = ptr + 1 
2080 : 

Line 2060 is our method of checking whether or not the file has already been 
created. If the file exists, then the status variable will not equal 16 and no error 
should occur in bringing in the value of the pointer. But, if this is the first time 
the program has been used, an error will occur. The error will occur when line 
2040 tries to bring in a value for ptr, since no such value has yet been written to 
the disk. When the error occurs, the status variable will register a value of 16 
(unrecoverable read error). We do not wish the program to halt when this error 
happens; rather, we want the problem fixed. So we use the routine located between 
lines 3000 and 4000 to write out a value for ptr and then return to the beginning 
of the file output routine to start the process over. After use of this error routine, 
a value does exist on the disk, and line 2040 can input a value for ptr without an 
error occurring. Once we have a value for the pointer, we add one to that value. 

2090 rem *-data file-* 

2100 open 15,8,15:rem open command chni 
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2110 open 3,8,3,"inventory.rec,l," + chr$(100) 
2120 rem I in line 2110 is letter not # 
2130 chnl$ = chr$(3):rem channel # 
2140 rlow = ptr:rem low byte of rec.# 
2150 rhigh = 0:rem high byte of rec.# 
2160 if rlow > 255 then gosub 15000 
2170 rec$ = chr$(rlow) + chr$(rhigh) 
2180 : 

2190 pztn$ = chr$( 1):renri position 
2200 print#15,"p";chnl$;rec$;pztn$ 
2210 print#3,item$ 
2220 : 

2230 pztn$ = chr$(25):rem position 
2240 print#15,"p";chnl$;rec$;pztn$ 
2250 print#3,serl$ 
2260 : 

2270 pztn$ = chr$(40):rem position 
2280 print# 1 5, " p " ; chn 1$; rec$; pztn$ 
2290 print#3,cst$ 
2300 : 

2310 pztn$ - chr$(50):rem position 
2320 print#15,"p";chnl$;rec$;pztn$ 
2330 print#3,room$ 
2340 : 

2350 pztn$ = chr$(70):rem position 
2360 print#15,"p";chnl$;rec$;pztn$ 
2370 print#3,desc$ 
2380 close 3:close 15 
2390 : 
2400 : 

2410 rem *-update ptr file-* 

2420 open 2,8,2,"@0:inventory.ptr,seq,write" 

2430 print#2,ptr 

2440 close 2 

2450 : 

2460 : 

2470 goto 4000:rem repeat routine 
2480 : 
2490 : 

Lines 2190 to 2370 instruct the computer to write out the information collected 
from the user to the inventory file. Each piece of information is given a certain 
maximum number of spaces. Most information will not take up the maximum, so 
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some space in each field will be left blank. ItemS information can contain up to 
24 characters or bytes of information (23 characters of information and 1 byte for 
the delimiter). SerialS information can have up to 15 bytes of information. Cst$ 
information has a maximum of 10 bytes, room$ information 20 bytes, and Desc$ 
can have up to 30 bytes of information. 

When all the information has been transferred to the disk, the pointer value is 
written out to its sequential file. The user is queried about adding more information 
to the file and the appropriate action taken upon obtaining a response. 



DISPLAY HOME INVENTORY 

The "homeinv.read" program is really the reverse of the routine just covered. The 
word input# is substituted for the word print#, and the values of the variables are 
formatted for display on the screen rather than being written to the disk. Otherwise, 
the routines are very similar. Each field of each record is read into the computer 
from the disk and displayed. When all records have been read in and displayed, 
the user is transferred to the "homeinv.menu" program. 



SEARCH/SORT HOME INVENTORY 

The main piogram of this Home Inventory System is the "homein v. search" program. 
There are six sort or search routines and an option to return to the main home 
inventory menu. 

1. Search For Item 

2. Search For Serial # 

3. Search For Cost 

4. Search For Room Items 

5. Sort Items-Alpha. Order 

6. Sort Items-Serial # 

7. Return to Home Inv.Menu 

Numbers 1,2, and 4 use a common search subroutine. The two sort options (numbers 
5 and 6) use a common sort subroutine, the Shell-Metzner sort. Option number 3 
uses its own search routines for both parts of this selection. We will cover the 
common search subroutine first. 

16000 rem **~common search routine-** 
16010 : 
16020 : 
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16030 rem *-data file-* 

16040 open 15,8,15:rem open command chni 
16050 open 5,8,5,"inventory.rec,l," + chr$(100) 
16060 chnl$ = chr$(5):rem channel # 
16070 : 

16080 rec = rec + 1 

16090 rlow = rec:rhigh = 

16100 if rlow > 255 then gosub 15000 

16110 rec$ = chr$(rlow) + chr$(rhigh) 

16120 : 

16130 print#15,"p";chnl$;rec$;pztn$ 
16140 input#5,find$ 
16150 : 

16160 rem convert to lower case 
16170 In = len(srch$) 
16180 cvt$ = left$(find$,ln) 
16190 gosub 17000:find$ = cvt$ 
16200 : 

16210 if srch$ = find$ then 16330 

16220 if rec < ptr then 16080 

16230 scf = 1:rem set search comp.flag 

16240 rem clear screen/crsr down 5 

16250 print home$:cd = 5:gosub 9000 

16260 print tab(tb + 3) 

16270 print "Search Completed!" 

16280 for k = 1 to 1000: next k 

16290 cd = 10:gosub 9000: rem crsr 10 

16300 close 5:close 15 

16310 return 



.Same code as file input routine 
16590 return 

This subroutine is common to the first two options and to the room search option. 
Each option routine that uses this subroutine estabhshes the necessary conditions 
prior to entering the subroutine. The values of srch$ and pztn$ are determined prior 
to the "gosub" statement in each of the option routines. Once these values are 
known, the specified part of the file can be searched for any match (line 16210). 
If a match occurs, control passes to the instructions at lines 16330 to 16590. These 
instructions read in from the diskette the information associated with the item 
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searched for. The "return" statement in line 16590 returns control to the instruction 
following the "gosub" statement in the original option routine — 1, 2, or 4. When 
a match does not occur, the record counter (rec) is first checked to see that its value 
does not exceed the value of the total number of records (ptr); then the record 
counter is incremented by one and the process is repeated. 

The next section of code discussed is part one of the Search For Cost option. 
In lines 3000 to 3200. a decision is made by the user: whether to search for items 
above a certain cost or items below a certain cost. The appropriate part of this 
option routine is then given control. The following code is for items above a specific 
value. 

3200 rem **-items above $ amount-** 

3205 rem clear screen/crsr down 5 

3210 print home$:cd = 5:gosub 9000 

3215 input "Above which amount? ";amt 

3220 gosub 10000:rem display routine 

3225 rem clear screen/crsr down 2 

3230 print home$:cd = 2:gosub 9000 

3235 print#file,""tab(10) "ITEMS ABOVE $";amt 

3240 print#file,bnk$:print#file,bnk$ 

3245 gosub 22000:rem open file 

3250 for w = 1 to ptr 

3255 gosub 23000:rem figure rec.# 

3260 : 

3265 pztn$ = chr$( 1):rem position 
3270 print#15,"p";chnl$;rec$;p2tn$ 
3275 input#5,item$ 
3280 : 

3285 pztn$ = chr$(40):rem position 
3290 print# 1 5, " p " ; ch n 1$; rec$; pztn$ 
3295 input#5,cst$ 
3300 : 

3305 c$ = cst$ 

3310 if left$(c$,7) = "DELETED" then 3345:rem next w 

3315 if left$(c$,1) = "$" then gosub 11000:rem strip $ 

3320 if val(c$) > amt then 3330 

3325 goto 3345: rem next w 

3330 ttlamt = ttlamt + val(c$) 

3335 print#file,item$; 

3340 print#file,""tab(18) cst$ 

3345 next w 

3350 : 

3355 print 
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3360 print#file,"TOTAL VALUE = ";ttlamt 
3365 gosub 24000: rem close files 
3370 gosub 21000:rem clear variables 
3375 gosub 20000:rem menu return 
3380 goto 600:rem menu 
3385 : 
3390 : 

The items that are valued above a certain amount are searched for in line 3320. 
The amount is previously determined in line 3215 and displayed in 3235. Line 3250 
begins a loop that extends through 3345. Each record is searched for costs that 
exceed the specified amount. Line 3320 says that, if the cost of the record being 
examined exceeds the amount specified, then control is passed to line 3330. When 
such an item has been found, (1) a running total is kept of the cumulative value of 
these items (line 3330), and (2) the item and its value are displayed (lines 3335 
and 3340). After all the records have been examined, the total value of all items 
above the specific amount is given (3360), and control is transferred to the file 
closing (3365) and housekeeping subroutines (3370 and 3375). Finally, control is 
shifted back to the menu for further instructions (3380). 

The routine to find items below a certain value is virtually the same as that 
just given. The only significant difference occurs in line 3740 where the sign is 
reversed. We are looking for items whose value is less than the specified amount. 
Those items whose value is greater than the specified amount are passed over. 

We have looked briefly at the first four options, the search options. The next 
two options are sort options and use a common sort subroutine, the Shell-Metzner 
sort. I will explain only the procedures involved in setting up and using a sort 
subroutine with Commodore disk files. We will look first at the alphabetizing 
routine. 

5000 rem **--sort items alpha. order--** 

5010 q = 1:rem valid record counter 

5020 rem clear screen/crsr down 5 

5030 print home$:cd = 5:gosub 9000 

5040 print tab(5) "WORKING-PLEASE DON'T TOUCH!" 

5050 gosub 22000: rem open file 

5060 pztn$ = chr$( 1):rem position 

5070 for w = 1 to ptr 

5080 gosub 23000:rem figure rec.# 

5090 : 

5100 print#15,"p";chnl$;rec$;pztn$ 
5110 input#5,item$ 

5115 if item$ = "DELETED" then 5170:rem next w 
5120 : 
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5130 rem convert to upper case 

5140 cvt$ = item$:gosub 17500:item$ = cvt$ 

5150 a$(q) = item$:rem store in array for internal sort 

5160 q = q + 1 

5170 next w 

5180 : 

5190 : 

5200 gosub 24000:rem close files 
5210 n = q - 1 
5220 print:print:print 

5230 print tab(5) "STILL WORKING-PLEASE WAIT!" 
5240 gosub 25000:rem sort routine 
5250 : 
5260 : 

5270 rem display results 

5280 gosub 10000:rem display routine 

5290 rem clear screen/crsr down 5 

5300 print home$:cd = 5:gosub 9000 

5310 for i = 1 to q - 1 

5320 print#file,i,a$(i) 

5330 next i 

5340 : 

5350 gosub 21000:rem clear variables 
5360 gosub 20000: rem menu return 
5370 goto 600:rem menu 
5380 : 
5390 : 

The keys to this routine are (1) reading in only the item names, (2) storing them 
in a string array, (3) sorting them with the sort subroutine located between 25000 
and 25150, and (4) displaying them in their now-alphabetized order. 

A separate record counter is used (line 5010) to keep track of the valid records 
since there may be some records that have been deleted and now contain the value 
"DELETED". If there are such records, they are skipped and the loop (w) is 
increased by one. But the valid record counter (q) is not increased. If the record 
is not valid (it contains "DELETED"), it is also not included in the string array of 
valid records to be sorted. Once the loop is completed, the string array a$() should 
contain all the valid item names. A new warning message is displayed (line 5230), 
and control is transferred to the sort subroutine. When the sorting has been com- 
pleted, the results are displayed through another loop (lines 5310 to 5330). 

The last two lines in this routine (5360 and 5370) are common to all the routines 
and simply "clean up" various conditions that may have been "set" during execution 
of the routine. 
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The last of the options, sort by serial number, again makes use of the left$ 
and mid$ string array commands. It is also the longest of the routines. The routine 
sorts by serial number and then displays the resulting list in serial number order, 
along with the associated item name. It is conceivable that an individual or insurance 
company would need all the associated information instead of just the item name. 
Therefore, if you are interested in developing a completely useful Home Inventory 
System, you might wish to add the code necessary to display all related information 
in both serial number order and alphabetical order. 

6000 rem **-sort items serial#--** 

6010 q = 1:rem valid record counter 

6020 rem clear screen/crsr down 5 

6030 print home$:cd = 5:gosub 9000 

6040 print tab(5) "WORKING-PLEASE DON'T TOUCHI" 

6050 gosub 22000: rem open file 

6060 : 

6070 for w = 1 to ptr 

6080 gosub 23000:rem figure rec.# 

6090 : 

6100 pztn$ = chr$( 1):rem position 
6110 print#15,"p";chnl$;rec$;pztn$ 
6120 input#5,item$ 

6125 if item$ = "DELETED" then 6230:rem next w 
6130 : 

6140 pztn$ = chr$(25):rem position 
6150 print#15,"p";chnl$;rec$;pztn$ 
6160 input#5,serl$ 
6170 : 

6180 rem convert to upper case 

6190 cvt$ = serl$:gosub 17500:serl$ = cvt$ 

6200 : 

6205 rem combine for internal sort 
6210 a$(q) = serl$ + "*" + item$ 
6220 q = q + 1 
6230 next w 
6240 : 

6250 gosub 24000: rem close files 
6260 n = q - 1 
6270 print:pnnt:print 

6280 print tab(5) "STILL WORKING-PLEASE WAIT!" 
6290 gosub 25000: rem sort routine 
6300 : 

6310 rem display results 
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6320 gosub 10000: rem display routine 

6330 rem clear screen/crsr down 5 

6340 print home$:cd = 5:gosub 9000 

6350 for i = 1 to q - 1 

6360 rem separate and display 

6370 la = len(a$(i)) 

6380 print#file,i; 

6390 if mid$(a$(i),j,l) = "*" then 6410 

6400 j = j + 1 :goto 6390 

6410 print#file,left$(a$(i),j - 1); 

6420 print#file, ""tab(18) mid$(a$(i),j + 1,1a) 

6430 j = 1 

6440 next i 

6450 : 

6460 gosub 21 000: rem clear variables 
6470 gosub 20000:rem menu return 
6480 goto 600: rem menu 
6490 : 
6500 : 

Lines 6140 to 6160 bring in the serial number of each item. If the serial number 
has been deleted (contains the word "DELETED"), the record is skipped as in the 
previous routine. In fact, the two sort routines have nearly identical beginnings. 
The main difference occurs in lines 6180 to 6190 when the serial number, instead 
of the item name, goes through the conversion to upper case. The only other major 
difference occurs when the item name is concatenated (joined) to the serial number. 
Line 6210 combines: (1) the existing value of the serial number (serl$), (2) the 
current value of the item name (item$), and (3) a separator (the asterisk) into one 
new string array value, a$(q). 

Once the entire file is read and the correct number of valid records determined, 
control is passed to the sort subroutine (line 6290). Lines 6310 to 6440 are used 
to display the results of the sort. Here again, we need to make use of the power 
of the lefts, mid$, and len functions. The numeric variable la is set to equal the 
length of each of the string arrays (line 6370). The mid$ function is used to determine 
where in the string the asterisk is located (6390). The left$ and mid$ functions are 
used to print out the desired parts of the string in a acceptable format (6380 to 
6420). This sequence is repeated until all valid records have been displayed in serial 
number order. The end of this routine is the same as the end of the other five 
routines. 

This concludes the discussion of the Search/Sort Home Inventory (home- 
inv. search) program. There are a number of other points that could be discussed, 
but those points relate mainly to different techniques of programming in BASIC 
rather than techniques for working with Commodore BASIC files. By now, if you 
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have worked through all the programs, you should be able to "read" a program and 
recognize some of the different techniques used. 



CORRECT HOME INVENTORY 

The next program in this Home Inventory System provides the ability to change or 
delete information in the "inventory.rec" file. Both parts of this program make use 
of two routines: a "file output routine", and a "file input routine". These two routines 
have been used in our other programs in this system. The "correct record routine" 
(lines 1000 to 2000) is essentially the same as the correction routine in the 
"homeinv. write" program (lines 1000 to 20(X)). The difference is, in the "home- 
inv. write" program, the information being checked for accuracy comes from the 
keyboard. In the "homeinv. correct" program, the information comes from the disk. 
That is the reason for line 1 1 10. This line transfers control to the file input routine, 
which inputs from the specified record on the disk the values for item$, serl$, cst$, 
room$, and desc$. These values are then displayed, and a check is made to see if 
they are correct. 

At this point, one other new line of code is encountered (line 1040). Lines 
1040, 1280, 1290, and 1450 are all related. All deal with a string variable called 
flag$. Line 1040 sets the original value of flag$ equal to the word "NO". This 
indicates that no information has yet been changed. Lines 1280 and 1290 check 
the value of flag$ and direct the computer accordingly. If the information is correct 
and no change has been made, the value of flag$ is still "NO", and the computer 
is directed to start this routine over again. If the information has been changed, the 
value of flag$ will have been changed by line 1450 to "YES", indicating altered 
information. If the information is correct and has been changed, we are now ready 
to write that information back out to the file on the disk (the file output routine). 
This technique allows the user to scan through the records if he or she is not sure 
of the record number of the incorrect information. 

The deletion routine is a relatively uncomplicated routine. The suspected record 
is brought in from disk (line 2100) and displayed (lines 2180 to 2220). A request 
is made of the user to see if this is the information to be deleted. If it is not, the 
deletion routine starts again. If the information is to be deleted, the user is required 
to type the word "YES" rather than just the "Y". If "YES" is typed, all string 
variables are given the value "DELETED", and control is passed to the file output 
routine where "DELETED" replaces the now deleted information. Notice that the 
entire file does not need to be resequenced and rewritten to the disk. Instead, only 
the information requiring change is affected. 

The change and delete routines for random access files are considerably easier 
than similar routines for sequential access files. This ease is one of the major 
strengths of random files. Access is direct to any part of the file desired. In fact, 
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in a very large inventory system, it is possible to read from disk and check only 
the desired part of the record, rather than the entire record. Programming can often 
be simpler and easier to read. There is less need for string arrays and, therefore, 
less need for large amounts of internal computer memory. The disk can be used as 
an extension of the internal memory with random files since the same principles 
are involved. The major difference is in the time involved, disk access being much 
slower than internal memory access. 

At the end of the chapter, I have included the first two programs of another 
system, a Magazine Article System, created by modifying this current Home In- 
ventory System. (The full Magazine Article System is included on the diskettes 
mentioned in the front of the book.) The modification is not extensive. The main 
reason for including the first portion of the Magazine Article System is to suggest 
the possibility of a general purpose data base program. All our systems have included 
some method for: (1) creating and adding to a file, (2) displaying information from 
that file in various ways, and (3) editing the file. These are the essential charac- 
teristics in any data base system. It should be possible to create a general purpose 
data base system that would request certain necessary information from the user. 
Based on the supplied information, this general data base system would create a 
file and set up the procedures to display and edit information in that file. 

The better commercial data base programs have expanded on these essential 
characteristics. They have added features that some users may need but others will 
never use. One feature that I feel is essential is transportability of file information. 
If a data base system does not allow some method of universal access to the files 
created under its system, I believe that system is severely limited in its usefulness 
to anyone other than the casual user. Files created under a general data-base system 
must be able to be accessed by other commercial application programs! Without 
such access, the user must reenter data in each application program used with the 
file information. This is the reason DIF is so important (see Chapter 9). Some 
general purpose data base systems do support DIF, while others at least make their 
files available through normal Commodore DOS file structure. 

In the Preface, I said that "Reading this book will not make you capable of 
creating complete data base programs . . .", but at this point, you should have an 
appreciation of the effort that goes into creating a good general purpose data base 
system. For your individual use, you may find that you can create a semi-general 
purpose data base system, a system that can serve your needs but would not be 
universal in meeting the needs of everyone. This is the reason for including the 
beginning of the Magazine Article System as a modification of the Home Inventory 
System. Structured carefully, with enough user-supplied variables, this series of 
programs can form the basis for such a personal data-base system. 

The next chapter will deal with the planning necessary in creating the programs 
for any file system. The example will be a Stock Market System for keeping track 
of the price and volume changes of certain issues. 
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QUESTIONS 



1. What BASIC reserved phrase is only used the first time the "homeinv. write" 
program is run? 

2. Give the name of the string variable that allows us to use one search routine 
for three different program modules. 

3. What sort routine is used in both systems in this chapter? 

4. What word means "joining string variables together"? 

5. True or False: It is more difficult to change information in a random-access 
file than in a sequential file. 



276 CHAPTER ELEVEN 



ANSWERS 



1. Status = 16 

2. Find$ 

3. Shell-Metzner 

4. Concatenate 

5. False 
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■ Program for HOMEINV.MENU 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 



•--homeinv.menu- 



rem * 




-initialization 






1 me $ 




chr$( 147) 


rem 


clr/home 


: : cd$ 




chr$( 17) 


rem 


cursor 


down 


: : cu$ 




chr$( 145) 


rem 


cursor 


u p 


: :cl$ 




chr$( 157) 


rem 


cursor 


left 


: : cr$ 




chr$( 29) 


rem 


cursor 


right 


: blk$ 




chr$( 144) 


rem 


black 




: ylw$ 




chr$( 158) 


rem 


yellow 




: wht$ 




chr$( 5) 


rem 


white 




: r vs$ 




chr$( 18) 


rem 


reverse 


video 


3oke 


53280, 14: rem 


bore 


er = It 


.blue 



poke 53272, 23. 'rem upper/lower case 
poke 53281, 9:rem set bkgrd to brn 



rem ra e n u - - 

tb = 10:rera tab value-10 spaces rt, 
print home$:rem clr/home 
print wht$; 
print tab(Lb) 
print rvs$; 

print "HOME INVENTORY SYSTEM" 
print 

print ylw$ 

print tab(tb) 

print "1. WRITE RECORD" 

print:print tab(tb) 

print "2. READ RECORD" 

printrprint tab(tb) 

print "3. SEARCH RECORD" 

printrprint tab(tb) 

print "4. CORRECT RECORD" 

printrprint tab(tb) 

print "5. TRANSLATE RECORD" 

printrprint tab(tb) 

print "6 . COPY FILE" 

printrprint t a b ( t b ) 

print "7. LIST OF FILES" 

printrprint tab(tb) 

print "8. END" 

printrprint tab(tb) 

poke 19,32rrem disable input ? 

input "Which Program Number? ";nu$ 

number = val(nu$) 



if 


number = 


1 


then 


1000 


if 


number = 


2 


then 


2000 


if 


number = 


3 


then 


3000 


if 


number = 


4 


then 


4000 
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840 


if 


number = 


5 


then 


5000 


850 


if 


number = 


6 


then 


6000 


860 


if 


number = 


7 


then 


7000 


870 


if 


number = 


8 


then 


8000 



890 

900 

910 

920 

930 

940 

950 

960 

970 

1000 

1010 

1020 

1030 

1040 

1050 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 

4030 

4040 

4050 

5000 

5010 

5020 

5030 

5040 

5050 

6000 

6010 

6020 

6030 

6040 

6050 

7000 

7010 

7020 

7030 

7040 

7050 



to continue: 



rem * -incorrect choice message-* 
print:print: print tab(tb) 
print r vs$ ; " I n cor r ec t Choice!" 
print:orint tab(tb) 

print "Press " ; v h t $ ; " R ETUR K " ; y 1 w$ ; " 
gosub 19030:rem return key routine 
goto 500: rem menu — check again 



rem --write record program--** 
file$ = "HOMEINV .WRITE" 
gosub 17000:rera new program routine 
" " home in V . wr i t e" : r em load & run 



rem **--read record program--** 
file$ = "HOMEINV. READ" 
gosub 17000:rem new program routine 
" "horaeinv . read" : rem load & run 



rem **--search record program--** 
file$ = "HOMEINV. SEARCH" 
gosub 17000:rem new program routine 
''"homeinv. search ":rem load & run 



rem ** — correct record program — ** 
file$ = "HOMKTXV. CORRECT" 
gosub 1 7000:rein new program routine 
' " home i n V . c or r e c t " : rem load & run 



rem ** — trans, record program--** 
rile$ = "HOMEINV .TRANSLATE" 
gosub 17000:rem new program routine 
" "homeinv . trans" : rem load & run 



rem * * - - c o p y file — * * 

files = "HOMEINV. COPY" 

gosub 17000:rem new program routine 

" "horaeinv . copy" : rem load & run 



rem **--list of files routine--** 

print home$:rem clr/home 

@"$" 

print cu$;chr$(13):rem 13 = rtn 

print "Are you ready to return to the menu?" 

print 
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7060 gosub 18000:rem y/n input routine 
7070 if yes$ = "y" then 500:rem menu 
7080 goto 7000:rem check again- 
7090 : 
7100 : 

8000 rem **--end routine--** 

8010 poke 19,0:rem restore input prompt 

8020 print home$:rem clr/home 

8030 cd = 5 : rem 5 lines down 

8040 gosub 9000:rem crsr down routine 

8050 print tab(tb - 5) 

8060 print rvs$; 

8070 print "That's all for this session!" 
8080 pr i n t : pr in t : pr in t 
8090 print tab(tb) 
8100 print rvs$; 

8110 print "See you next time." 
8120 print y 1 w S 

8130 cd = 10:rem 10 lines down 

8140 gosub 9000:rem crsr down routine 

8150 end 

8160 : 

8170 : 

9000 rem ** - -cursor down routine — ** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

17000 rem **--new program routine — ** 

17010 print home$:rem clr/home 

17020 cd = 2:rem 2 lines down 

17030 gosub 9000:rem crsr down routine 

17040 print "You have selected the ";file$:print:print 





"program." 




1 7050 


print 


: print:print 




17060 


print- 


"Is this the 


program you want?" 


1 7070 


print 






17080 


gosub 


18000:rem y/n 


input routine 


17090 


if yes$ = "n" then 


500 : rem menu 


17100 


print 


home$: rem clr 


/home 


17110 


cd = 


5 : rem 5 1 ines 


down 


17120 


gosub 


9000 : r em crsr 


down routine 


17130 


print 


tab(tb - 5) 




17140 


print 


rvs$ ; 




17150 


print 


"Please wait! 


It 


17160 


print 


: print : print 




17170 


print 


tab(tb) 




17180 


print 


r V s $ ; 




17190 


print 


"I'm loading. 




17200 


print 


: print : print 




17210 


print 


tab(tb + 8) 




17220 


print 


r vs$ , 




17230 


print 


f ile$ 
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17240 poke 19,0:rera restore input prompt 
17250 return 
17260 : 
17270 : 

18000 rem — y/n input routine--** 

18010 print "Type a " ; wh t $ ; " Y" ; y 1 w$ ; " or " ; wh t $ ; "N " ; y 1 w$ ; " :"; 
18020 poke 19,32:rera disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r vs$ ; " I ncor r ec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:reni check again 
18110 : 
18120 : 

19000 rem ** --return key routine--** 
19010 print 

19020 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:"; 
19030 poke 198,0:rera clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0:rem no value 
19060 next i 

19070 X = peek(197):reni store key press 

19080 if X = 1 then 19100 

19090 goto 19070:if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rem clr kbrd 

19120 nu$ = "":rera clr string variable 

19130 print home$:rem clr/home 

19140 return 

ready , 
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■ Program for HOMEINV. WRITE 



100 


rem 




**--write inventory rec.--*** 


no 












120 












130 


rem 




*--initializaLio 


n - - * * 


140 


home 


$ 


= chr$(147) 


: rem 


clr/home 


1 50 


: : cd$ 


= chr$( 17) 


: r em 


cursor down 


160 


: : c u 


$ 


= chr$(145) 


: r e m 


cursor up 


170 


: : cl$ 


= chr$(157) 


: r e m 


cursor left 


180 


: : c r 


$ 


= chr$( 29) 


: rem 


cursor right 


190 


: blk$ 


= chr$(144) 


: rem 


b lack 


200 


■: y 1 w 


$ 


= chr$(158) 


: r em 


yellow 


210 


: wht$ 


= chr$( 5) 


: rem 


white 


220 


•.TVS 


$ 


= chr$( 18) 


: rem 


reverse video 


230 


: bnk$ 


= chr$( 10) 


: r em 


blank line 


240 


: b r n 


$ 


= chrS(149) 


: rem 


brown 


250 


: b u e 


$ 


= chr$( 31) 


: r e m 


1) 1 u e 


260 












270 


poke 




53280, 14: rem 


b o r 


(1 e r = 1 1 . b 1 u e 


280 


poke 




53272, 23: rem 


upp 


er/lower case 


290 


poke 




53281, 9:rem 


set 


bkgrd to ylw. 


300 












310 












320 


rem 




* — var ia b 1 es 


lis 


t--** 


330 


rem 




rlow = low 


byte 


of r ec . # 


340 


rem 


r 


high = high 


byte 


of rec . # 


350 


rem 




file = file 


# in 


open cmnd 


360 


rem 




dvic = t'evice # 


in open cmnd 


3 70 


rem 




crand = command # 


in open cmnd 


380 


rem 




ptr = pointer f 


or # of reed's 


390 


rem 


chnl$ = chann 


el # 


in open cmnd 


400 


rem 




rec$ = rec . # 


from rlow & rhigh 


410 


rem 


pztn$ = posit 


ion 


within record 


420 


rem 


i 


tem$ = name 


of item 


430 


rem 


ser 1$ = seria 


1 # 


of item 


440 


rem 




cst$ = cost 


of item 


450 


rem 


roora$ = locat 


ion 


of item 


460 


rem 


desc$ = descr 


iption of item 


470 


rem 




sp = # of 


spaces for input 


480 












490 












1000 


rem 




**--key board 


input routine — ** 



1005 print ylw$ 
1010 tb = 8:rein tab value 
1015 poke 19,32: rem disable input ? 
1020 : 
1025 : 
1030 : 

1100 rem **--name of item--** 
1105 print home$:rem clr/home 

1110 print tab(lO) rvs$; "ADD TO HOME INVENTORY" 
1115 cd = 7:gosub 9000:rem crsr down 7 
1120 print "1. Type in item's name please: " 
1125 print:print 
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1 



1130 
1135 
lUO 
1145 
1 150 
1155 
1160 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
12A0 
1245 
1250 
1255 
1260 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
143 5 
1 44 
1445 
14 50 
14 55 
1460 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1545 



sp = 23 

gosub 5000:rera input subroutine 
input itera$ 

if ien(item$) > 23 then item$ = le f t $ ( i t em$ , 2 3 ) 
s$ = item$:gosub 12000:item$ = s$ 



rem ••- 

print 

print 

cd = 

print 

print 

sp = 

gosub 

input 

if le 

s$ = 



rem 

print 

print 

cd = 

print 

print 

sp = 

gosub 

input 

if le 

s$ = 



serial # of item--** 
home$:rem clr/home 

tab(lO) rvs$; "ADD TO HOME INVENTORY" 
7:gosub 9000:rem crsr down 7 

"2. Type in item's serial # please: " 
: print 
14 

5000:rem input subroutine 
serl$ 

n(serl$) > 14 then serl$ 
serl$:gosub 12000:serl$ = 



left$(serl$,14) 



* — cost of item — * * 
horae$:rem clr/home 

tab(lO) rvs$; "ADD TO HOME INVENTORY" 
7:gosub 9000:rem crsr down 7 

''3. Type in item's cost please: " 
: print 
9 

5000: rem input subroutine 
cst$ 

n(cst$) > 9 then cst$ = 1 ef t $ ( c s t $ , 9 ) 
cst$:gosub 12000:cst$ = s$ 



rem ** — room of item--** 
print home$:rem clr/home 

print tab(lO) rvs$; "ADD TO HOME INVENTORY" 
cd = 7:gosub 9000:rem crsr down 7 
print "4, Type in item's room please: " 
print : print 
sp = 19 

gosub 5000:rem input subroutine 
input room$ 

if len(room$) > 19 then room$ = 1 e f t $ ( r oom$ , 1 9 ) 
s$ = roora$:gosub 12000:room$ = s$ 



rem * * - - d e s c . o f item--** 
print home$:rera clr/home 

print tab(lO) rvs$; "ADD TO HOME INVENTORY" 

cd = 7:gosub 9000:rem crsr down 7 

print "5. Type in item's description please: " 

print : print 

sp = 29 

gosub 5000:rem input subroutine 
input desc$ 

if len(desc$) > 29 then desc$ = 1 ef t $ ( d esc $ , 2 9 ) 
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1550 
1555 
1560 
1600 
1610 
1620 
1630 
16A0 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
17A0 
1 750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
18A0 
1850 
1860 
1870 
1880 
1890 
1900 



desc$:gosub 12000:descS = s$ 



rem **-display for correction- 

rem clear screen/ crsr down 3 
print home$:cd = 3:gosiib 9000 



pr i n t : pr 
pr 1 n t : pr 
print:prinl 

nt 



tab( tb) 
t a b ( t b ) 
t a b ( t b ) 
L a b ( t b ) 
Lab( Lb) 
tab( tb) 



" 1 . 

" 2 . 
"3! 
"4. 



ITEM 

SER# 
COST 
ROOM 
DESC 



; i tera$ 
;scrlS 
; cst$ 
; room$ 
; desc $ 



pr 1 n t : pr 
print:prtnt 
print : print 
print "Is this correct? " 
printrprint tab(tb) 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 2000 
print:print tab(tb) 

input "Which number is wrong? ";nbS 



nb 
if 
if 
if 
if 
if 
if 



val (nb$) 



n b 
n b 
n b 
nb 
nb 
nb 



t h e n 
t h o n 
then 
then 
then 
or n b 



sp 
sp 
sp 
sp 
sp 

> 



2 3 
14 
9 
19 
2 9 
thei 



< 1 or nb > 5 then gosub 1400():goto 1750 
home$:cd = 8:gosub 9000 

i n f o rma t i o n : " 



"Type in correct 



print 
print 
print 

gosub 5000:rem input routine 
input cinfo$ 
s$ = cinfo$:gosub 12000 
if nb = 1 then item$ = 



ask again 
1910 if nb = 2 

ask again 
1920 if nb = 3 

ask again 
19 3 if n b = 4 

ask again 
1 940 if nb = 5 

ask again 
1 9 50 : 
19 60 : 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 



:cinfo$ = s$ 

left$(cinfo$,2 3):goto 1600:rem 



then ser]$ = 1 e f t $ ( c i n f 0$ , 1 4 ) : go t o 1600:rera 

then cst$ = I e f t $ ( c i n f o $ , 9):goto 1600:rem 

then rooms = I e f t $ ( c i n f o $ , 1 9 ) : go t o 1600:rem 

then desc$ = left$(cinfo$,2 9):goto 1600:rera 



rem **--file output routine — ** 
rem * -pointer file-* 

open 2, 8, 2," inventory. ptr,seq, read" 
input#2,ptr 

close 2 

if status = 16 then 3000 
ptr = ptr + 1 

rem *-data file-* 

open 15,8,1 5 :rem open command chnl 
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2 110 
2120 
2130 
2140 
2 1 50 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2 3 2 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 



open 


3 , 


8,3, inventory. rec,l, + 


chr$( 100; 


rem 1 


i n 


line 2110 IS letter not 


# 


chnl$ 




chr$(3):rem channel # 




r 1 ow 


= 


ptr:rera low byte of rec. 


# 


r h i g h 




0:rem high byte of rec. 


U 

if 


if rlo 


w 


> 255 then gosub 15000 




r e c $ 




chr$(rlow) + chr$(rhigh) 




p z L n $ 




clir$( l):rei7i position 





print#15,"p";chnl$;rec$;pztn$ 



print#3. 


item$ 






pztn$ = 


chr$( 25) 


: rem po 


si t ion 


print#15 


,"p";chn 


1$ ; rec$ 


; pztn$ 


pr int#3 , 


ser 1$ 






p z t n $ = 


chr$(40) 


: r em po 


si tion 


print# 1 5 


,"p";chn 


1$ ; rec$ 


; pztn$ 


print#3. 


cst$ 






p z t n $ = 


chr$( 50) 


: rem po 


si t ion 



print#15,"p";chnl$;rec$;pztn$ 
print#3,roora$ 

p2tn$ = chr$(70):rem position 
print#15,"p";chnl$;rec$;pztn$ 
print#3,desc$ 
close 3:close 15 



rem * -update ptr file-* 

open 2,8,2,"(30:inventory.ptr,seq,write" 
print#2, ptr 
close 2 



goto 4000:rem repeat routine 



rem **--first time use only--** 
close 2 

open 2, 8, 2, "inventory. ptr, seq, write" 
print#2,"0" 

close 2 

goto 2000:rem begin file routine 



rem ** --repeat routine — ** 

print home$:rem clr/home 

cd = 3:roin 3 lines down 

gosub 9000:rem crsr down routine 

print "Do you want to add more items?" 

print 

gosub 18000:rera y/n input routine 
if yes$ = "y" then 1000 
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4080 if yes$ = "n" then 6000 
4090 : 
4100 : 

5000 rem **--input subroutine--** 
5010 for i = 1 to sp 

5020 print c hr $ ( 1 7 5 ) ; : r em underline 
5030 next i 

5040 printrprint: print 

5050 print "Do not go beyond the end of the line!" 

5060 rem crsr up 5 

5070 print cu$ ; cu$ ; cu$ ; c u$ ; cu$ 

5080 return 

5090 : 

5100 : 

6000 rem ** --return to inv.menu--** 

6010 poke 19,0:rera restore input prompt 

6020 print horae$:rem clr/home 

6030 cd = 5: rem 5 lines down 

6040 gosub 9000:rem crsr down routine 

6050 print tab(tb) 

6060 print rvs$; 

6070 print "LOADING THE INVENTORY MENU" 
6080 home inv . menu" 
6090 : 
6100 : 

9 000 rem ** --cursor down routine — ** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

12000 rem **--strip excess underline character--** 
12010 s2$ = s$ 
12020 i = 1 

12030 if mid$(s2$,i,l) = chr$(175) then 12070 

12040 i = i + 1 

12050 if i > sp then 12070 

12060 goto 12030 

12070 s$ = left$(s2$,i - 1) 

12080 return 

12090 : 

12100 : 

12110 : 

14000 rem * -incorrect choice message-* 
14010 print. -print I. ab(tb) 
14020 print r v s $ ; " 1 n c or r ec t Choice!" 
14030 print:priiit Lab(tb) 

14040 print "Press "; wh t $; "RETURN "; y I w$ ; " to continue:"; 

14050 gosub 19000:rem return key routine 

14060 return 

14070 : 

14080 : 

14090 : 

15000 rem **--figure rec.# routine--** 
15010 rhigh = int(rlow/256) 
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15020 rlow = rlow - 256 * rhigh 
15030 return 
15040 : 
15050 : 
15060 : 

18000 rem * * - - y / n input routine--** 

18010 print "Type a " ; wh t $ ; " Y " ; y 1 w$ ; " or " ; wh t $ ; "N " ; y 1 w$ ; " :" 
18020 poke 19,32:rera disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yess^ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r v s $ ; " I nc or r ec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:rem begin again 
18110 : 
18120 : 
18130 : 

19000 rem ** -return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek ( 1 9 7 ) : r em store key press 
19060 if X = 1 then 19080:rem 1 = rtn 
19070 goLo 19050:rem if not 1 go back 
19080 poke 198,l:rem allow for cursor 
19090 poke 631,0:reni clr kbrd 
19100 nu$ = "":rem clr string variable 
19110 poke 19,32:rem disable input ? 
19120 return 

ready . 
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Program for HOMEINV.READ 



100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1 120 



-read inventory rec, 



rem 


^--initialization 






io me $ 


= chr$(147) 


rem 


clr /home 


: :cd$ 


= chr$( 17) 


rem 


cursor 


down 


: : cu$ 


= chr$(145) 


rem 


cursor 


up 


: :cl$ 


= chr$( 157) 


rem 


cursor 


left 


: : cr $ 


= cnr!5( /9; 


rem 


cursor 


right 


: blk$ 


= chr$(U4) 


rem 


black 




: ylw$ 


= chr$(158) 


rem 


yellow 




:wht$ 


= chr$( 5) 


rem 


white 




: r V s $ 


= chr$( 18) 


rem 


reverse 


video 


: bnk$ 


= chr$( 10) 


rem 


blank 1 


ine 


: brn$ 


= chr$(149) 


rem 


brown 




: bue$ 


= chr$( 31) 


rem 


blue 




poke 


53280, 14:rem 


border = It 


• blue 


poke 


53272, 23:rem 


upper/ lower 


case 


poke 


53281, 9:reni 


set 


bkgrd t 


o brn . 



rem 


--variables list — ** 


rem 


r low 




low byte of rec.# 


rem 


r h igh 




high byte of rec . # 


rem 


file 




file # in open cmnd 


rem 


d v i c 




device # in open cmnd 


rem 


crand 




command # in open cmnd 


rem 


.ptr 




pointer for # of reed's 


rem 


chnl$ 




channel # in open cmnd 


rem 


r ec$ 




rec.# from rlow & rhigh 


rem 


pztn$ 




position within record 


rem 


i tem$ 




name of item 


rem 


serl$ 




serial # of item 


rem 


cst$ 




cost of item 


rem 


r oora$ 




location of item 


rem 


desc$ 




description of item 


rem 


sp 




# of spaces for input 



rem -**--read file routine — ** 
print ylw$ 

tb = 8:rem tab value 

gosub 10000:rem display routine 

rem * -pointer file-* 

open 2, 8, 2, "inventory. ptr, seq, read" 

input#2,ptr 

close 2 

rem *-data file-* 

open 15,8,15:rera open command chnl 

open 5 , 8 , 5 , "in ventor y . rec , 1 , " + chr$(100) 
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1130 
1140 
1150 
1 160 
1170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1 240 
1245 
12 50 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 



rem 1 in line 1120 is letter not # 

chnl$ = chr$(5):rcm channel # 

for rec = 1 to ptr 

rlow = rcc:rhlgh = 

if rlow > 255 then 15000 

rGc$ = chr$(rlow) + chr$(rhigh) 

print 



pztn$ = chr$( l):rein position 
print#15,"p";chnl$;rec$; pztn$ 
input#5,itein$ 

if item$ = "deleted" then 1600 



pztn$ = chr $ ( 2 5 ) : r em position 
print#15,"p";chnl$;rec$;pztn$ 
input#5 , ser 1$ 



pztn$ = c h r $ ( 40 ) : r em position 
print#15,"p";chnl$;rec$;pztn$ 
input#5, cst$ 



pztn$ = chr$(50):rcra position 
print#15,"p";chnl$;rec$;pztn$ 
input#5 , room$ 



pztn$ = chr$(70):rera position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,desc$ 



rem ^-display information-* 



rem c 1 


ear screen/ 


crsr down 


5 






print 


home$ : cd = 


5:gosub 9000 






pr i n t : 


printlfile, 


""tab(tb) 


"1 . 


ITEM: 


" ; i tera$ 


print: 


print#file, 


""tab(tb) 


"2. 


SER#: 


" ; serl$ 


print: 


print#file, 


" " t a b ( t b ) 


"3. 


COST: 


" ; cst$ 


print: 


print#file, 


""tab(Lb) 


"4. 


ROOM: 


" ; r oora$ 


print: 


printff i le , 


""tab(tb) 


"5. 


DESC: 


" ; desc$ 



print:print#file,""tab(tb) 
print "Press " ; wh t $ ; " RETU R N " ; y 1 w$ ; " to continue:"; 
gosub 19000:rem return key routine 
next rec:rera dsp next set of info. 

close 5: close 15:print#file:close file 
print home$:cd = 5:gosub 9000 
print tab(tb + 3):print rvs$;"ALL FINISHED" 
cd = lOtgosub 9000:rem crsr down 10 

print tab(tb) "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:" 



HOME INVENTORY SYSTEM 289 



1680 gosub 19000:rera return key routine 
1690 : 
1700 : 
1710 : 

6000 rem **--return to inv.raenu--** 

6010 poke 19,0:rem restore input prompt 

6020 print horae$:reni clr/horae 

6030 cd = 5:rem 5 lines down 

6040 gosub 9000:reni crsr down routine 

6050 print tab(tb) 

6060 print rvsS; 

6070 print "LOADTNG THE INVENTORY MENU" 
6080 " "home i nv . menu" 
6090 : 
6100 : 

9000 rem **--cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

90A0 return 

9050 : 

9060 : 

10000 rem **--display routine--** 

10010 print horae$:rem clr/home 

10020 cd = 3:rera 3 lines down 

10030 gosub 9000:rera cursor down routine 

10040 print "Would you like a paper print out 

10050 print 

10080 gosub 18000:rem y/n input routine 
10090 if yes.$ = "y" then 10120:rem prnt 
10100 if yes$ = "n" then 10300:rem scrn 
10110 : 

10120 print home$:rem clr/home 

10130 cd = 3: rem 3 lines down 

10140 gosub 9000:rem cursor down routine 

10150 print "Please make sure the printer" 

10160 print 

10170 print "is on and ready to use." 
10180 print 

10190 print "Are you ready to begin printing? 
10200 print 

10210 gosub 18000:rem y/n input routine 
10220 if yes$ = "n" then 10000 
10230 : 

10240 rem * -printer display-* 
10250 file = 4 
10260 dvic = 4 
10270 cmnd = 7 

10280 goto 10500:rem open instruction 
10290 : 

10300 rem * -screen display-* 
10310 file = 3 
10320 dvic = 3 
10330 cmnd = 1 

10340 goto 10500:rem open instruction 
10350 : 
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10360 
10500 
10510 
10520 
10530 
10540 
1 0550 
1 5000 
15010 
1 5020 
15030 
15040 
15050 
15060 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 



rem *-open instruction - -'' 
open f i le , d V i c , cran d 
return 



''--figure rec.# routine-- 
= int(rlow/256) 
= rlow - 256 * rhigh 



rem — y / n input routine — * 
print "Type a " ; wht$ ; " Y" ; ylw$ ; ' 
poke 19,32:rem disable input ? 
input yes$ 



r e 


ra 


rh 


i 


rl 


o 


re 


t 



or ";wht$;"N";ylw$;" 



or yes}> = 
or yes$ = 



print 
i f yes$ = 
if yes$ = 
print 
print rvs 
print 

goto 18000:rem begin again 



Y" 



then 
then 



yes$ 
yes$ 



: re turn 
' ; r e t ur n 



;"Incorrect Choi ce ! " ; y lw$ 



rem **-return key routine--** 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rem no value 
next i 

X = peek(197):rem store key press 
if X = 1 then 19080:rem 1 = rtn 
goto 19050:rem if not 1 go back 
poke 198,1: rem allow for cursor 
poke 631,0:rem clr kbrd 
nu$ = "":rera clr string variable 
poke 19,32:rem disable input ? 
return 



ready . 
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■ Program for HOMEINV.SEARCH 



100 
110 
120 
130 
140 
1 50 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
600 
610 
620 
6 30 
640 



-search/sort homeinv.- 



rem * 


*- 


- i n i t i 


alization 




T ra e $ 




c h r $ ( 


147) 


rem 


clr/home 


: : c d $ 




chr$( 


17) 


rem 


cursor down 


: : c u $ 




c h r $ ( 


1 45) 


rem 


cursor up 


: : c 1 S 




c h r $ ( 


157) 


rem 


cursor left 


: : cr$ 




c h r $ ( 


29) 


rem 


cursor right 


: b 1 k$ 




c h r S ( 


1 44) 


rem 


black 


: ylw$ 




chr$( 


158) 


rem 


yellow 


:wht$ 




chr$( 


5) 


rem 


white 


: rvs$ 




c h r $ ( 


18) 


rem 


reverse vide 


: bnkS 




chr$ ( 


10) 


rem 


blank line 


: brn$ 




chr$( 


149) 


rem 


brown 


: bue$ 




chr $ ( 


31) 


rem 


blue 


3oke 


53280, 1 4 


: rem 


border = It. blue 


poke 


53272,23 


: rem 


upper/lower case 


poke 


53281, 9 


: rem 


set 


bkgrd to brn 



rem 


* * — V a r 


i a b 1 o s list — * * 


rem 


r 1 ow 




low byte of rec . # 


rem 


r high 




high byte of rec.# 


rem 


file 




file # in open cmnd 


rem 


dvic 




device # in open cmnd 


rem 


cmnd 




command # in open cmnd 


rem 


pt r 




pointer for # of reed's 


rem 


c hnl$ 




channel # in open cmnd 


rem 


rec$ 




rec.# from rlow & rhigh 


rem 


pztn$ 




position within record 


rem 


item$ 




name of item 


rem 


serl$ 




serial # of item 


rem 


cst$ 




cost of item 


rem 


r oom$ 




location of item 


rem 


desc$ 




description of item 


rem 


sp 




# of spaces for input 



rem '''-pointer file-* 

open 2, 8, 2," inventory. ptr,seq, read' 
input#2,ptr 
close 2 
dim a$(ptr) 



rem — menu routine — 
print ylwS 

tb = 8:rem tab value 

poke 19,32:rem disable input ? 

rem clear screen/crsr down 1 
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650 


print 


home$:cd = l:g 


osub 9000 


660 


print 


tab(tb + 3) "SEARCH/SORT MENU" 


670 


print 






680 


print 


:print tab(tb) 




690 


print 


"1. Search For 


Item" 


700 


print 


:print tab(tb) 




710 


print 


"2 . Search For 


Serial #" 


720 


print 


: print tab(tb) 




730 


print 


"3. Search For 


Cost" 


740 


print 


:print tab(tb) 




750 


print 


"4. Search For 


Room Items" 


760 


print 


: print tab( tb) 
"5. Sort Items 




770 


print 


— Alpha. Order" 


780 


print 


:print tab(tb) 




790 


print 


"6. Sort Items 


— Serial #" 


800 


print 


:print tab(tb) 




810 


print 


"7. Return to 


Home Inv. Menu" 


820 


print 


:print tab(tb) 




830 


print 


tab( tb ) : input 


"Which number please? 


SAO 


nb = 


val(nb$) 




850 








860 


if nb 


= 1 then 1000 




870 


if nb 


= 2 then 2000 




880 


if nb 


= 3 then 3000 




890 


if nb 


= A then AOOO 




900 


if nb 


= 5 then 5000 




910 


if nb 


= 6 then 6000 




920 


if nb 


= 7 then 7000 




930 


print 






9A0 


g o s u b 


lAOOO:rem incorrect choice 


950 


goto 


600 : rem menu 




960 








970 








980 








lOOC 


rem 


*>'r=__search for 


item--** 



; nb$ 



1010 gosub lOOOOrrem display routine 

1020 rem clear screen/crsr down 5 

1030 print home$:cd = 5:gosub 9000 

1040 input "Which item? ";srch$ 

1050 rem convert to lower case 

1060 cvt$ = srch$:gosub 17000:srch$ = cvt$ 

1070 rec = 

1080 pztn$ = chr$( l):rera position 
1090 gosub 16000:rera common search 
1100 if scf = 1 then 1120:rem srch comp 
1110 gosub 13000:rem common display 
1120 gosub 21000:rem clear variables 
1130 if rec = ptr or rec > ptr then 1150 
1140 goto 1080:rera continue search 
1150 gosub 20000:rem menu return 
1160 goto 600:rem menu 
1170 : 
1180 : 

2000 rem **--search for serial #--** 
2010 gosub 10000: rem display routine 
2015 rem clear screen/crsr down 5 
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2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2U0 
2150 
2160 
2170 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 

3110 
3120 
3130 
3140 
3150 
3160 
3170 
3200 
3205 
3210 
3215 
3220 
3225 
3230 
3235 
3240 
3245 
3250 
325 5 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
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print home$:cd = 5:gosub 9000 

input "What serial number? ";srch$ 

rem convert to lower case 

cvt$ = srch$:gosub 17000:srch$ = cvt; 

rec = 

pztn$ = chr$(25):rem position 

gosub 16000:rem common search 

if scf = 1 then 2110:rem srch comp 

gosub 13000:rem common display 

gosub 21000:rem clear variables 

if rec = ptr or rec > ptr then 2140 

goto 2070:rem continue search 

gosub 20000:rem menu return 

goto 600:rem menu 



rem ''"''--search for cost — 
ttlamt = 0:rem zero out total amt 
rem clear screen/crsr down 5 
print horae$:cd = 5:gosub 9000 

ITEMS . . 



print 
print 
p r i n t 
print 
p r i n L 
print 
print 
"B";ylw$;" : 
input lt$ 
if lt$ = "A" 
if lt$ = "B" 
gosub 14000: 



tab(tb) "SEARCH 
print :print 



t a b ( t b ) 

I a b ( t b ) 
print 
tab( tb) 



FOR 

A. ...Above a certain amount 

B . . . . Below a 
Which letter 



certain amount 



;wht$ ; "A" ; ylw 



o r 
or 
rem 



lt$ = "a" 
lt$ = "b" 
incorrect 



then 3200 
then 3500 
choice 



goto 3000:rem ask again 



rem --items above $ amount--** 
rem clear screen/crsr down 5 
print home$:cd = 5:gosub 9000 
input "Above which amount? ";arat 
gosub 10000:rem display routine 
rem clear screen/crsr down 2 
print home$:cd = 2:gosub 9000 
print#file,""tab(10) "ITEMS ABOVE 
print#file,bnk;$:print#file,bnk$ 
gosub 22000:rem open file 
for w = 1 to ptr 
gosub 23000:rem figure rec.# 



; amt 



pztn$ = chr$( l):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5 , item$ 

pztn$ = chr$(40):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,cst$ 
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3305 
3310 
3315 
3320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 
3370 
3375 
3380 
3385 
3390 
3500 
3510 
3520 
3 530 
3540 
3550 
3560 
3 5 70 
3 580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3 6 90 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 



c$ = cst$ 

if left$(cS,7) = "DELETED" then 3345:rera next w 

if left$(c$,l) = "$" then gosub 11000:rem strip 

if val(c$) > amt then 3330 

goto 3345: rem next w 

ttlamt = ttlamt + val(c$) 

print#file,item$; 

print#f ile , ""tab( 18) cst$ 

next w 

print 

print#f ile , "TOTAL VALUE = ";ttlamt 
gosub 24000: rem close files 
gosub 21000:rem clear variables 
gosub 20000:rem menu return 
goto 600:rem menu 



rem ** --items below $ amount--** 

rem clear screen/crsr down 5 

print horae$:cd = 5:gosub 9000 

input "Below which amount? ";amt 

gosub 10000:rera display routine 

rem clear screen/crsr down 2 

print home$:cd = 2:gosub 9000 

print#file,""tab(10) "ITEMS BELOW $";amt 

p r i n t : p r i n t 

gosub 22000:rem open file 

for w = 1 to ptr 

gosub 23000:rem figure rec.# 

pztn$ = chr$( l):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5, item$ 

pztn$ = chr$(40):rcm position 
print#15,"p";chnl$;rec$;pztn$ 
input#5, cst$ 

c$ = cst$ 

if left$(c$,7) = "DELETED" then 3790:rem next w 
if left$(c$,l) = "$" then gosub 11000:rem strip $ 
if val(c$) < amt then 3760 
goto 3790:rem next w 
ttlamt = ttlamt + val(c$) 
print#file , itera$ ; 
print#file, ""tab( 18) cst$ 
next w 



print 

print#fil e , "TOTAL VALUE = ";ttlamt 
gosub 24000:rem close files 
gosub 21000:rem clear variables 
gosub 20000:rem menu return 
goto 600:rem menu 
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3880 
3890 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 

4 1 50 
4160 
4170 
4180 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5125 
5130 
5140 
5150 
5160 
5170 
5180 
5190 

5 200 
5210 
5220 
5230 
5240 
5 2 50 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 

296 



rem - -search for room items- - 

gosub lOOOOrrem display routine 

rem clear screen/crsr down 5 

print home$:cd = 5:gosub 9000 

input "Which room? ";srch$ 

rem convert to lower case 

cvt$ = srch$:gosub 17000:srch$ = cvt; 

r e c = 

pztn$ = chr$(50):rera position 

gosub 16000:rem common search 

if scf = 1 then 4120:rem srch corap 

gosub 1300 0:rc 111 common display 

gosub 2 1 : r c in clear variables 

if rec = ptr or rec > ptr then 4150 

goto 4080:rera continue search 

gosub 20000:rera menu return 

goto 600:rem menu 



rem * * - - s o r t items a 1 p h a . o r d e r - - * * 
q = l:rera valid record counter 
rem clear screen/crsr down 5 
print home$:cd = 5:gosub 9000 

print tab(5) " WOR K I NG - -P LE A S E DON'T TOUCH!" 

gosub 22000:rem open file 

pztn$ = chr$( l):rem position 

for w = 1 to ptr 

gosub 23000:rem figure rec.# 

print#15,"p";chnl$;rec$;pztn$ 



input#5,item$ 

if item$ = "DELETED" then 
rem convert to upper case 
cvt$ = item$:gosub 17500:i 
a$(q) = itera$:rem store in 
q = q + 1 
next w 



5170 

tem$ = cvt$ 
array for internal sort 



gosub 24000:rem close files 
n = q - I 
print:print:print 

print tab(5) "STILL WORK ING--PLE AS E WAIT!" 
gosub 25000:rera sort routine 



rem display results 

gosub 10000:rera display routine 

rem clear screen/crsr down 5 

print horae$:cd = 5: gosub 9000 

fori =1 toq-1 

p r i n t f I 1 e , i ; a$ ( i ) 

next i 
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5340 
5350 
5360 
5370 
5380 
5390 
6000 
6010 
6020 
6030 
6040 
6050 
6070 
6080 
6090 
6100 
6110 
6120 
6125 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6205 
6210 
62 20 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 



gosub 21000:reiii clear variables 
gosub 20000:rem menu return 
goto 600:rera menu 



rem *"''--sort items serial #--** 

q = l:rem valid record counter 

rem clear screen/crsr down 5 

print home$:cd - 5:gosub 9000 

print tab(5) "WORKING--PLEASE DON'T TOUCH!" 

gosub 22000:rera open file 

for w = 1 to ptr 

gosub 23000:rem figure rec.# 



pztn$ = chr$( l):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5, item$ 

if item$ = "DELETED" then 6230 

pztn$ = chr$ ( 2 5 ) : r em position 
print # 15, "p";chnl$;rec$;pztn$ 
input#5,serl$ 

rem convert to upper case 
cvt$ = serl$:gosub 17500:serl$ 



cvt$ 



rem combine for 
a$(q) = serl$ + 
q = q + 1 
next w 



internal sort 
"*" + item$ 



gosub 24000:rem close files 
n = q - 1 
print:print:print 

print tab(5) "STILL WORKING--PLEASE WAIT!" 
gosub 25000:rem sort routine 

rem display results 

gosub 10000:rem display routine 

rem clear screen/crsr down 5 

print home$:cd = 5:gosub 9000 

for i - 1 to q - 1 

rem separate and display 

la = len(a$(i)) 

print#file,i; 

if mid$(a$( i) , j , 1 ) = then 6410 

j = j + l:goto 6390 

pr int#f ile , lef t$ ( a$( i ) , j - 1); 

print#file,""tab(18) mid$(a$(i),j + 1,1a) 

j = 1 
next i 

gosub 21000:rem clear variables 
gosub 20000:rem menu return 
goto 600:rera menu 
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6490 

6500 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

10000 

10010 

10020 

10030 

10040 

10050 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 



rem --return to horaeinv.menu--** 

poke 19,0:rera restore input prompt 

print home$:rem clr/horae 

cd = 5:rem 5 lines down 

gosub 9000:rem crsr dov>rn routine 

print tab(tb) 

print rvs$; 

print "LOADING THE HOME INV. MENU" 
""horaeinv.menu" 



rem ** - -cursor down routine--'' 

for i = 1 to cd 

print cd$; 

next i 

return 



rem * * - - d i s p 1 a y routine--*''' 

print home$:rem clr/homc 

cd = 3: rem 3 lines down 

gosub 9000:rem cursor down routine 

print "VJould you like a paper print out 

print 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 10120:rem prnt 
if yes$ = "n" then 10300:rem scrn 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rem cursor down routine 

print "Please make sure the printer" 



print 
print 
print 
print 
print 
gosub 



"is on and ready to use. 

"Are you ready to begin printing 

18000:rem y/n input routine 



if y e s$ = 



n 



then 10000 



rem * -printer display-* 
file = 4 
d vie = 4 
crand = 7 

goto 10500:rera open instruction 

rem -'-screen display-* 
file - 3 
d V ic = 3 
cmnd = 1 

goto 10500:rem open instruction 
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10360 
10500 
10510 
10520 
10530 
10540 
10550 
1 1000 
11010 
11020 
11030 
1 1040 
11050 
1 1060 
11070 
13000 
13010 
1 3020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
1 3130 
13140 
13150 
13160 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
16000 
16010 
1 6020 
1 60 3 
16040 
16050 
16060 



rem *-open instruction-* 
open f i 1 e , d V i c , cmn d 
return 



rem ** — strip $ sign---''* 

Ic = len(c$) 

aS = right(c$,lc - 1) 

c$ = a$ 

return 



rem * 


-display in 


f orraation- 










rem c 


lear screen 


/crsr down 


5 








print 


horae$ : cd = 


5:gosub 9000 








print 


: print #fi 1 e 


, ""tab(tb) 


"1. 


ITEM: 


tt 


i t Gm$ 


print 


:print#file 


, ""tab(tb) 


"2. 


SER#: 


tt 


ser 1$ 


print 


: printlfile 


, ""tab( tb) 


"3. 


COST: 


tt 


cs t$ 


print 


:print#file 


, ""tab(tb) 


"4. 


ROOM: 


tt 


rooni$ 


print 


: print#file 


, ""tab(tb) 


"5. 


DESC: 


tt 


desc $ 


print 


: print # file 


,""tab(tb) 











print "Press "; wht$ ; "RETURN" ; ylw$ ; ' 
gosub 19000:reni return key routine 
return 



to continue: 



rem * -incorrect choice message-* 
print:print tab(tb) 
print r vs$ ; " I nc o r r ec t Choice!" 
print:print tab(tb) 

print "Press "; wht $; "RETURN" ; y lw$ ; " to continue:"; 

gosub 19000:rem return key routine 

return 



rem **--figure rec.# > 255--** 
rhigh = in t ( r lo w/ 2 56 ) 
rlow = rlow - 256 * rhigh 
return 



rem **--common search routine--** 



rem *-data file-* 

open 15,8,15:rem open command chnl 

open 5 , 8 , 5 , "in ventory . rec , 1 , " + chr$(100) 

chnl$ = chr$(5):rem channel # 
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16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
1 6220 
16230 
162A0 
16250 
16260 
1 6270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16 500 
16 510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 
16600 
16610 
16620 



rec = rec + 1 

rlow-= rec:rhigh = 

if rlow > 255 then gosub 15000 

rec$ = chr$(rlow) + chr$(rhigh) 

print#15,"p";chnl$;rec$;pztn$ 
input#5, find$ 

rem convert to lower case 
In = len(srch$) 
cvtS = lef t$(f ind$,ln) 
gosub 17000:find$ = cvt$ 

if srch$ = find$ then 16330 

if rec < ptr then 16080 

scf = l:rcm set search comp.flaj 

rem clear screcn/crsr down 5 

print home$:cd = 5:gosub 9000 

print tab(tb + 3) 

print "Search Completed!" 

for k = 1 to 1000:next k 

cd = 10:gosub 9000:rem crsr 10 

close 5:close 15 

return 

pztn$ = chr$( l):rem position 
print#15,"p"; chnl$;rec$;pztn$ 
input#5, item$ 



pztn$ = chr$(25):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,serl$ 



c hr $ ( 40 ) : r em position 
) , "p" ; chnl$ ; rec$ ; pztn$ 



p 


z 


tn 


p 


r 


i n 


i 


n 


pu 



pztn$ = chr$(50):rem position 
print#15,"p";chnl$;rec$;pztn$ 
nput#5,room3 



pztn$ = chr$(70):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input #5, desc$ 



close 5:close 15 
return 
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1 7000 
17010 
17020 
17030 
17040 
1 7050 
1 7060 
17070 
1 7080 
17090 
1 71 00 
17110 
17120 
17)30 
17140 
17150 
17160 
17 170 
17180 
17500 
17510 
1 7 520 
1 7530 
17540 
1 7 550 
1 7560 
1 7570 
17580 
1 7590 
17600 
17610 
17620 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 



rem — convert to lowercase — * 
ncS = "" 

for cv = 1 to len(cvtS) 
X = asc(mid$(cvt$,cv,l)) 
if X > 192 then x = x - 128 
nc$ = nc$ + chr$(x) 
next c V 

cvt$ = nc$ 

f = asc(left$(cvt$, 1)) 
f = f + 128 

nc$ = chr$(f) + r i gh t $ ( c v t $ , 1 e n ( c v t $ ) - 1) 
return 

rem cvt$ = converted to lowercase 
rem nc$ = 1st letter/uppercase 



rem - -convert to uppercase- - ** 
nc$ = "" 

for cv = 1 to len(cvt$) 

X = asc(mid$(cvt$,cv,l)) 

if X > 64 and x < 91 then x = x + 128 

nc$ = nc$ + chr$(x) 

next c V 

cvtS = nc$ 
return 



rem * * - - y / n input routine--** 

print "Type a " ; wh t $ ; " Y" ; y 1 w$ ; " or " ; wh t $ ; "N " ; y 1 w$ ; " 
poke 19,32:rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
print 

print rvs$; "Incorrect Choice! ";ylw$ 
print 

goto 18000;rem begin again 



rem **-return key routine--** 
poke 198,0:rem clr kbrd buffer 
for i = 63 1 to 6 4 
poke 1 , ; r e m no value 
next: i 

x = pcck(197):rera store key press 
if X = 1 then 19080:rem 1 = rtn 
goto 190 50:rein if not 1 go back 
poke 198,1: rem allow for cursor 
poke 631,0:rem clr kbrd 
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19100 
19110 
19120 
19130 
19140 
191 50 
20000 
20010 
20020 
20030 
20040 
20050 

20060 
20070 
20080 
20090 
20100 
20110 
21000 
21010 
21020 
21030 
21040 
21050 
21055 
21060 
21070 
21080 
21090 
22000 
22010 
22020 
22030 
22040 
22050 
22060 
22070 
23000 
23010 
23020 
23030 
23040 
23050 
23060 
23070 

24000 
24010 
24020 
24030 
24040 
24050 
24060 
25000 
25010 



nu$ = "":reni clr string variable 
poke 19,32:rem disable input ? 
return 



rem **--menu return routine — ** 
print#f ile 
close file 
print 

poke 19,32: rem disable input ? 

print tab(3) "Press "; wh t$ ; "RETURN "; y lw$ ; " to go to 
Search Menu:" 

gosub 19000:rera return key routine 

print 

return 



rem * 




-clear 


item$ 




tt It 


ser 1$ 




ti n 


cst$ 




tt t? 


room$ 




It It 


desc$ 




tt tt 


s c f 








return 



variables--** 



rem **--open data file — ** 

open 15,8,15:rem open command chnl 

open 5 , 8 , 5 , "inventory . rec , 1 , " + chr$(100) 

chnl$ = chr$(5):rem channel # 

return 



rem * * - - f i g u r e record number — * * 

r 1 o V.' = w : r h i g h = 

if rlow > 255 then gosub 15000 

rec$ = chr$(rlow) + chr$(rhigh) 

return 



rem * * - - c 1 o s e files--** 
close 5 
close 15 
return 



rem **--shell-metzner sort--** 
ra = n 
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25020 m = 

25030 if 1 

25040 j = 

25050 i = 

25060 z = 



int (m / 2) 
1 = then 25150 
1 : k = n - ra 
J 

i + ra 



25070 if a$(i) < a$(z) then 25120 

25080 t$ = a$(i):a$(i) = a$(z):a$(z) 

25090 i = i - m 

25100 if i < 1 then 25120 

25110 goto 25060 

25120 j = j + 1 

25130 if j > k then 25020 

25140 goto 25050 

25150 return 



read y . 
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■ Program for HOMEINV.CORRECT 

100 rem *** — correct/delete inv. — *** 
110 : 
120 : 



1 30 


rem ** 




-initialization 







140 


home$ 


- 


cnr $ ( L'* / ) 


rem 


c Ir /home 


150 


: : c Q $ 




chr$( 17) 


rem 


cursor 


down 


160 


: : cu$ 




chr$( 145) 


rem 


cursor 


up 


170 


: :cl$ 




chr$(157) 


rem 


cursor 


left 


180 


: : cr $ 




chr$( 29) 


rem 


cursor 


right 


190 


: blk$ 




chr$( 144) 


rem 


black 




200 


: ylw$ 




chr$( 158) 


rem 


ye 1 low 




210 


: wht$ 




chr$( 5) 


rem 


white 




220 


: r vs$ 




chr$( 18) 


rem 


reverse video 


230 


: bnk$ 




chr$( 10) 


rem 


blank 


line 


240 


: brn$ 




chr$( 149) 


rem 


brown 




250 


: bue$ 




chr$( 31) 


rem 


blue 





260 : 

270 poke 53280, 14:rem border = It. blue 
280 poke 53272, 23:rem upper/lower case 
290 poke 53281, 9:rem set bkgrd to brn. 
300 : 
310 : 



320 


rem 


**--var iables list--** 


330 


rem 


r low 




low byte of rec . # 


340 


rem 


r high 




high byte of rec . # 


350 


rem 


file 




file # in open crand 


360 


rem 


dvic 




device # in open cmnd 


370 


rem 


cmnd 




command # in open cmnd 


380 


rem 


ptr 




pointer for # of reed's 


390 


rem 


chnl$ 




channel # in open cmnd 


400 


rem 


rec$ 




rec.# from rlow & rhigh 


410 


rem 


pztn$ 




position within record 


420 


rem 


item$ 




name of item 


430 


rem 


serl$ 




serial # of item 


440 


rem 


cst$ 




cost of item 


450 


rem 


r oom$ 




location of item 


460 


rem 


desc$ 




description of item 


470 


rem 


sp 




# of spaces for input 



480 : 
490 : 

500 rem *-pointer file-* 

510 open 2 , 8 , 2 , " in ven t or y . pt r , se q , r ead" 

520 input#2,ptr 

530 close 2 

540 : 

550 : 

560 : 

600 rem **--menu routine--** 

610 print ylw$ 

620 tb = 3:rem tab value 

630 poke 19,32:rem disable input ? 

640 rem clear screen/crsr down 3 

650 print home$:cd = 3:gosub 9000 
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660 print tab(8) "CORRECT/DELETE MENU" 
670 print : print : print 
680 print:print tab(tb) 

690 print "C . . . . Co rr ec t Inventory Record" 
700 print:print tab(tb) 

710 print "D.... Delete Inventory Record" 
720 print:print tab(tb) 

730 print "R.,,. Return to Inventory Menu" 
7A0 print:print tab(tb) 

750 print t ab ( t b ) : i n pu t "Which letter please? ";lt$ 

760 if lt$ = "C" or lt$ = "c" then 1000 

770 if lt$ = "D" or lt$ = "d" then 2000 

780 if lt$ = "R" or lt$ = "r" then 3000 

790 goto lA000;rem incorrect choice 

800 goto 750 

810 : 

820 : 

830 : 

1000 rem **--correct record routine--** 

1010 tb = 8:rera tab value 

1020 rem clear screen/crsr down 5 

1030 print horae$:cd = 5:gosub 9000 

1040 flag$ = "no":rem info not yet chgd 

1050 print "Type a '0' to return to the menu." 

1060 print:print 

1070 input "Correct which record? ";rec 
1080 if rec = then 600:rem menu 
1090 if rec > ptr then 14000 
1100 : 

1110 gosub 5000:rem file input routine 
1120 : 
1130 : 

1140 rem **-display for correction — ** 
1150 : 

1160 rem clear screen/crsr down 3 
1170 print home$:cd = 3:gosub 9000 
1180 : 

1190 print:print tab(tb) "1. ITEM: ";item$ 

1200 print:print tab(tb) "2. SER#: "•,serl$ 

1210 print:print tab(tb) "3. COST: ";cst$ 

1220 print:print tab(tb) "4. ROOM: ";room$ 

1230 print:prlnt tab(tb) "5. DESC: ";desc$ 

1240 print:print tab(tb) 

1250 print "Is this correct? " 

1260 print:print tab(tb) 

1270 gosub 18000:rem y/n input routine 

1280 if yes$ = "y" and flag$ = "yes" then 6000:rem info has 
been changed 

1290 if yes$ = "y" and flag$ = "no" then 1000:rem info has 

not been changed 
1300 print:print tab(tb) 

1310 input "Which number is wrong? ";nb$ 

1320 nb = val(nb$) 

1330 if nb = 1 then sp = 23 

1340 if nb = 2 then sp = 14 

1350 if n.b = 3 then sp = 9 
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1360 
1370 
1380 
1390 
1400 
UIO 
1420 
1430 
1440 
1450 
1460 
1470 

1480 

1490 

1500 

1510 

1520 
1530 
1540 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
21 90 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 



if nb 
if nb 
if nb 
rem c 
print 
print 
print 
gosub 
input 
f lag$ 
s$ = 
if nb 
ask a 
if nb 
ask a 
if nb 
ask a 
if nb 
ask a 
if nb 
ask a 



= 4 then sp = 19 
= 5 then sp = 29 

< 1 or nb > 5 then gosub 14000:goto 1300 
lear screen/crsr down 8 
home$:cd = 8:gosub 9000 
"Type in correct information: " 

7000:rem input routine 
c i nf 0$ 
= "yes" 

cinfo$:gosub 12000:cinfo$ = s$ 

1 then iteni$ = 1 e f t $ ( c in f o $ , 2 3 ) : go t o 1140:rem 



gain 

= 2 then serl$ 
gain 

= 3 then cst$ 
gain 

= 4 then room$ 
gain 

= 5 then desc$ 
gain 



lef t$ ( cinf 0$ , 14) : goto 1140:rera 
left$(cinfo$, 9):goto 1140:rem 
lef t$(cinf o$ , 19) : goto 1140:rem 

left$(cinfo$, 29) :goto 1140:rem 



rem ** --delete record routine--** 

tb = 8:rem tab value 

rem clear screen/crsr down 5 

print home$:cd = 5:gosub 9000 

print "Type a '0' to return to the menu. 

print: print 

input "Delete which record? ";rec 

if rec = then 600 

if rec > ptr then 14000 

gosub 5000:rem file input routine 



rem **-display for deletion — ** 

rem clear screen/crsr down 3 
print home$:cd = 3:gosub 9000 

print:print tab(tb) "1. ITEM: ";ltem$ 
print:print tab(tb) "2. SER#: ";serl$ 
print:print tab(tb) "3. COST: ";cst$ 
print:print tab(tb) "4. ROOM: ";roora$ 
print:print tab(tb) "5. DESC: ";desc$ 
print:print tab(tb) 
print "Delete this record? " 
print:print tab(tb) 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 2290 
goto 2000:rera ask again 
print:print tab(tb) 

print "Are you sure? Type " ; wht$ ; " YES" ; ylw$ 
print:print tab(tb) 

print "to delete this record. ";:input yes$ 
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2330 if yes$ = "YES" or yes$ = "yes" then 2350 

2340 goto 2000:rera ask again 

2350 item$ = "DELETED" 

2360 serl$ = "DELETED" 

2370 cst$ = "DELETED" 

2380 room$ = "DELETED" 

2390 desc$ = "DELETED" 

2400 goto 6000:rem file output routine 
2410 
2420 
2430 

■ menu — * * 
input prompt 



INVENTORY MENU" 



3000 


rem * 


* --return to i 


3010 


poke 


19,0:rem resto 


3020 


print 


home$:rem clr 


3030 


cd = 


5:rem 5 lines 


3040 


g s u b 


9000 : rem crsr 


3050 


print 


tab(tb) 


3060 


print 


r vs$ ; 


3070 


print 


"LOADING THE 


3080 


*"homeinv.menu" 


3090 






3100 






3110 






5000 


rem * 


* — file input 


5010 






5020 






5030 


rem * 


-data file-* 



routine- 



5040 open 15,8,15:rem open command chnl 

5050 open 5 , 8 , 5 , "inventory . rec , 1 , " + chr$(100) 

5060 chnl$ = chr$(5):rem channel # 

5070 rlow = reccrhigh = 

5080 if rlow > 255 then 15000 

5090 rec$ = chr$(rlow) + chr$(rhigh) 

5100 print 

5110 : 

5120 : 

5130 pztn$ = chr$( l):rem position 
5140 print#15,"p";chnl$;rec$;pztn$ 
5150 input#5 , itera$ 
5160 : 
5170 : 

5180 pztn$ = chr$(25):rem position 
5190 print#15,"p";chnl$;rec$;pztn$ 
5200 input#5 , serl$ 
5210 : 
5220 : 

5230 pztn$ = chr$(40):rem position 
5240 print j?- 15, "p";chnl$;rec$;pztn$ 
5250 input#5,cst$ 
5260 : 
5270 : 

5280 pztn$ = chr$(50):rem position 
5290 print#15,"p";chnl$;rec$;pztn$ 
5300 input#5 , room$ 
5310 : 
5320 : 
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5330 pztn$ = chr$(70):rem position 
5340 print#15,"p";chnl$;rec$;pztn$ 
5350 input#5 , desc$ 
5360 : 
5370 : 

5380 close 5:close 15 
5390 return 
5400 : 
5410 : 
5420 : 

6000 rem **--file output routine--** 
6010 : 
6020 : 

6030 rem *-data file-* 

6040 open 15,8,15:rem open command chnl 

60 5 open 3, 8, 3, "inventory. re c,l," + chr$(100) 

6060 chnlS = c h r $ ( 3 ) : r em channel # 

6070 rlow = rec:rem low byte of rec.# 

6080 rhigh = 0:rem high byte of rec.# 

6090 if rlov > 255 then 15000 

6100 rec$ = chr$(rlow) + chr$(rhigh) 

6110 : 

6120 : 

6130 pztn$ = chr$( 1): rem position 
6140 print#15,"p";chnl$;rec$;pztn$ 
6150 print#3,item$ 
6160 : 
6170 : 

6180 pztn$ = chr$(25):rem position 
6190 print#15,"p";chnl$;rec$;pztn$ 
6200 print#3 , serl$ 
6210 : 
6220 : 

6230 pztn$ = chr$(40):rem position 
6 240 print#15,"p";chnl$;rec$;pztn$ 
6250 print#3,cst$ 
6260 : 
6270 : 

6280 pztn$ = chr$(50):rem position 
6290 print#15,"p";chnl$;rec$;pztn$ 
6300 print#3,room$ 
6310 : 
6320 : 

6330 pztn$ = chr$(70):rem position 
6340 print#15,"p";chnl$;rec$;pztn$ 
6350 print#3,desc$ 
6360 : 
6370 : 

6380 close 3:close 15 
6390 : 
6400 : 

6410 goto 600:rem menu 
6420 : 
6430 : 
6440 : 

7000 rem **--input subroutine--** 
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7010 for i = 1 to sp 

7020 print chr $ ( 1 7 5 ) ; : r em underline 
7030 next i 

7040 pr Int : print : pr int 

7050 print "Do not go beyond the end of the line!" 

7060 rem crsr up 5 

7070 print c u $ ; cu $ ; c u $ ; c u$ ; c u$ 

7080 return 

7090 : 

7100 : 

7110 : 

9000 rem ** — cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

9070 : 

12000 rem --strip excess underline character--** 
12010 s2$ = s$ 
12020 i = 1 

12030 if raid$(s2$,i,l) = chr$(175) then 12070 

12040 i = i + 1 

12050 if i > sp then 12070 

12060 goto 12030 

12070 s$ = left$(s2$,i - 1) 

12080 return 

12090 : 

12100 : 

12110 : 

14000 rem *-incorrect choice message-* 
14010 print:print tab(tb) 
14020 print r v s$ ; " Incor r ec t Choice!" 
14030 print:print tab(tb) 

14040 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:"; 

14050 gosub 19000:rem return key routine 

14060 return 

14070 : 

14080 : 

14090 : 

15000 rem **--figure rec.# routine — ** 

15010 rhigh = i n t ( r 1 o w/ 2 56 ) 

15020 rlow = rlow - 256 * rhigh 

15030 return 

15 040 : 

15050 : 

15060 : 

18000 rem **--y/n input routine — ** 

18010 print "Type a " ; wh t $ ; " Y" ; y lw$ ; " or " ; wh t $ ; "N " ; y 1 w$ ; " :"; 
18020 poke 19,32:rem disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 
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18080 print rvs$ ; "Incorrect Choice !"; ylw$ 
18090 print 

18100 goto 18000:rem begin again 
18110 : 
18120 : 
18130 : 

19000 rem *!=*-return key routine — ** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:reiii no value 
19040 next i 

19050 X = peek( 1 9 7 ) : r era store key press 
19060 if X = 1 then 19080:rein 1 = rtn 
19070 goto 19050:rem if not 1 go back 
19080 poke 198,l:rem allow for cursor 
19090 poke 631,0:reni clr kbrd 
19100 nu$ = "":reiii clr string variable 
19110 poke 19,32:rem disable input ? 
19120 return 

ready . 
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■ Program for HOMEINV.TRANS 



100 rem ***--homeinv . translate--*** 
110 : 
120 : 



130 


rem * 




initialization 




i 4- u 


m (t 

n m e 4> 




chr$ ( 


147) 


: rem 


clr/home 


150 


: :cd$ 




chr$ ( 


17) 


: rem 


cursor down 


160 


: : cu$ 




chr$ ( 


145) 


: rem 


cursor up 


170 


: :cl$ 




chr$ ( 


157) 


: rem 


cursor left 


180 


: :cr$ 




chr$ ( 


29) 


: r em 


cursor right 


190 


: blk$ 




chr$ ( 


144) 


: rem 


black 


200 


: ylw$ 




chr $ 


158) 


: r em 


yellow 


210 


: wht$ 




chr $ 


5) 


: rem 


white 


220 


: r V s $ 




chr$ 


18) 


: rem 


reverse video 


230 


: bnk$ 




chr$ 


10) 


: rem 


blank line 


240 


: b rn $ 




chr$ 


149) 


: rem 


brown 


250 


: bue$ 




chr$ 


31) 


: rem 


blue 



260 : 

270 poke 53280, 14:rem border = It. blue 

280 poke 53272, 23:rem upper/lower case 

290 poke 53281, 9:rem set bkgrd to brn. 

300 : 

310 : 



320 


rem 


var i a b les list--** 


330 


rem 


r low 




low byte of rec.# 


340 


rem 


r high 




high byte of rec.# 


350 


rem 


file 




file # in open cmnd 


360 


rem 


d V i c 




device # in open cmnd 


370 


rem 


cmnd 




command # in open cmnd 


380 


rem 


p t r 




pointer for # of reed's 


390 


rem 


chnl$ 




channel # in open cmnd 


400 


rem 


r e c $ 




rec.# from rlow & rhigh 


410 


rem 


p 2 t n $ 




position within record 


420 


rem 


i tera$ 




name of item 


430 


rem 


ser 1$ 




serial # of item 


440 


rem 


cst$ 




cost of item 


450 


rem 


r oom$ 




location of item 


460 


rem 


desc$ 




description of item 


470 


rem 


sp 




# of spaces for input 



480 : 
490 : 

500 rem *-pointer file-* 

510 open 2 , 8 , 2 , "inventor y . ptr , seq , read" 

520 input#2,ptr 

530 close 2 

540 : 

550 dim i tem$ ( p t r ) , ser 1 $ ( p t r ) , c s t $ ( p t r ) , r oom$ ( p t r ) , desc $ ( p t r ) 
560 : 
570 : 
580 : 

1000 rem ** — file input routine--** 
1010 : 
1020 : 
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1030 print home$:cd = 5;gosub 9000 

1040 print tab(8) rvs$; "READING FILE INFORMATION!" 

1050 rem *-data file-* 

1060 open 15,8,15:rein open command chnl 

1070 open 5 , 8 , 5 , "inventory . rec , 1 , " + chr$(100) 

1080 chnl$ = chr$(5):rem channel # 

1090 : 

1100 : 

1110 for k = 1 to ptr 

1120 rlow = k:rhigh = 

1130 if rlow > 255 then 15000 

1140 rec$ = chr$(rlow) + chr$(rhigh) 

1150 print 

1160 : 

1170 : 

1180 pztn$ = chr$( l):rem position 

11 90 print#15,"p";chnl$;rec$;pztn$ 

1200 input#5,iteiii$(k) 

1210 : 

1220 : 

1230 pztn$ = chr $( 25 ) : rem position 

1240 print#15,"p";chnl$;rec$;pztn$ 

1250 input#5,serl$(k) 

1260 : 

1270 : 

1280 pztn$ = chr$(40):rem position 

1290 print#15,"p";chnl$;rec$;pztn$ 

1300 input#5,cst$(k) 

1310 : 

1320 : 

1330 pztn$ = chr$(50):rem position 

1340 print#15,"p";chnl$;rec$;pztn$ 

1350 input#5,room$(k) 

1360 : 

1370 : 

1380 pztn$ = chr$(70):rem position 

1390 print#15,"p";chnl$;rec$;pztn$ 

1400 input#5,desc$(k) 

1410 next k 

1420 : 

1430 : 

1440 close 5:close 15 

1450 print home$:cd = 5:gosub 9000 

1460 print tab(5) "Insert diskette tor translation!" 

1470 print:print 

1480 print tab(8) "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue: " 

1490 gosub 19000:rem return routine 

1500 : 

1510 : 

1520 : 

2000 rem **--create dif file — ** 

2010 : 

2020 rem clear screen/crsr down 5 

2030 print home$:cd = 5:gosub 9000 

2040 print tab(ll) rvs$ ; "WRITING DIF FILE" 

2050 rem nv = number of vectors 
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2060 rem nt = number of tuples 

2070 nv = 5:nt = ptr + 1 

2080 q$ = chr$(34):rem quote mark 

2090 open 2 , 8 , 2 , "homelnv . dif , seq , write" 

2100 : 

2110 rem *-header section-* 
2120 : 

2130 print#2 , "TABLE" 
2140 print#2,"0, 1" 
2150 print#2,q$q$ 
2160 : 

2170 print#2, "VECTORS" 
2180 print#2,"0,";nv 
2190 print#2,q$q$ 
2200 : 

2210 print#2, "TUPLES" 
2220 print#2,"0,";nt 
2230 print#2,q$q$ 
2240 : 

2250 print#2,"DATA" 
2260 print#2,"0,0" 
2270 print#2,q$q$ 
2280 : 
2290 : 

2300 rem *-data section-* 
2310 : 

2320 print#2,"-l ,0" 
2330 print#2,"B0T" 
2340 : 

2350 print#2,"l ,0" 
2360 print#2,q$"ITEM"q$ 
2370 : 

2380 print#2,"l ,0" 

2390 print#2,q$"SERIAL #"q$ 

2400 : 

2410 print#2,"l ,0" 
2420 print#2,q$"C0ST"q$ 
2430 : 

2440 print#2,"l ,0" 
2450 print#2,q$"R00M"q$ 
2460 : 

2470 print#2,"l,0" 

2480 print#2, q$"DESC."q$ 

2490 : 

2500 for i = 1 to ptr 
2510 : 

2520 i$ = item$(i) 

2530 if left$(i$,7) = "DELETED" then 2790:rem next i 
2540 c$ = cst$( i) 

2550 if left$(c$,l) = "$" then 2570 

2560 goto 2610 

2570 Ic = len(c$) 

2580 a$ = right$(c$ , Ic - 1) 

2590 c$ = a$ 

2600 : 

2610 print#2,"-l ,0" 
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2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

1 5000 

15010 

1 5020 



print#2,"B0T" 

print#2,"l ,0" 
print#2,itera$(l) 

print#2,"l ,0" 
print#2,serl$(i) 

print#2,"0,";val(c$) 
print#2,"V" 

print#2,"l ,0" 
print#2,room$(i) 

print#2,"l ,0" 
print#2 , desc$( i) 



next i 
pr i n t # 2 , 



-1,0" 



print#2,"E0D" 
close 2 

print home$:cd = 5:gosub 9000 
print tab(14) "ALL FINISHED" 
print: print 
print tab(8) 

print "Insert Program Diskette!" 
print: print:print 

print tab(8) "Press "; wht$ ; "RETURN" ; ylv 
gosub 19000. rem return routine 



rem ** — return to inv.menu — ** 

poke 19,0:rera restore input prompt 

print home$:rera clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rera crsr down routine 

print tab(8) 

print rvs$; 

print "LOADING THE INVENTORY MENU" 
' " h o m e i n V . ra e n u " 



rem ** --curs or down routine-- 

for i = 1 to cd 

print cd$; 

next i 

return 



rem **--figure rec.# routine- 
rhigh = int(rlow/'256) 
rlow = rlow - 256 * rhigh 



to continue; 
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15030 return 
15040 : 
15050 : 
15060 : 

19000 rem **-return key routine--** 
19010 poke 198,0:rera clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i.Otrein no value 
19040 next i 

19050 X = peek(197):rem .store key press 
19060 if X = 1 then 19080:rem 1 = rtn 
19070 goto 19050:rein if not 1 go back 
19 080 poke 198,l:rem allow for cursor 
19090 poke 631,0:rem clr kbrd 
19100 nu$ = "":reni clr string variable 
19110 poke 19,32:rem disable input ? 
19120 return 

ready . 
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■ Program for HOMEINV. COPY 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 

2 70 
280 
290 
300 

3 10 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
1000 
1010 
1020 



rem * * 


--copy 


file 


info.---' — '~ 




rem — 


-initialization 


— * * 




h ome $ = 


chr$( 


147) : 


rem 


c 1 r /home 


: : c a 3> = 


chr$( 


17) : 


rem 


cursor 


down 


: : c u $ = 


chr$ ( 


14 5): 


rem 


cursor 


up 


: : cl$ = 


chr$ ( 


ID/;. 


rem 


cursor 


left 


: : cr$ = 


chrS ( 


29) : 


rem 


cursor 


right 


:blk$ = 


chr$ ( 


144) : 


rem 


black 




: ylwS = 


chr $ ( 


158) : 


rem 


yellow 




: wh t $ = 


chr$( 


5) : 


rem 


white 




: rvs$ = 


chr$( 


18) : 


rem 


reverse 


video 


: b n k $ = 


chr$ ( 


10): 


rem 


blank 1 


ine 


: brn$ = 


chr$( 


149) : 


rem 


b r own 




:bue$ = 


chr$( 


31): 


rem 


blue 




poke 53280,14 


: r e m 


border = It 


• blue 


poke 53272,23 


: rem 


upper/lower 


case 


poke 53281, 9 


: rem 


set 


bkgrd to brn. 



rem 


* 5r _ _ V a r i a b 1 e s 1 i s t - - * * 


rem 


r low 




low byte of r e c . # 


rem 


r h i gh 




high byte of rGC.# 


rem 


file 




^ile # in open cmnd 


rem 


d V i c 




device # in open cmnd 


rem 


cmnd 




command # in open cmnd 


rem 


ptr 




pointer for # of reed's 


rem 


chnl$ 




channel # in open cmnd 


rem 


r ec $ 




rec.# from rlow & rhigh 


rem 


pztn$ 




position within record 


rem 


i tem$ 




name of item 


rem 


ser 1$ 




serial # of item 


rem 


cst$ 




cost of item 


rem 


r oom$ 




location of item 


rem 


desc$ 




description of item 


rem 


sp 




# of spaces for input 



rem * -pointer file-* 

open 2, 8, 2, "inventory. ptr, seq, read" 
input#2, ptr 

close 2 

dim item$(ptr),serl$(ptr),cst$(ptr),room$(ptr),desc$(ptr) 



rem **--file input routine- 
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1030 
1040 
1050 
1060 
1070 
1080 
1 090 
1 100 
1110 
1 120 
1130 
1140 
1150 
1 160 
1170 
1 180 
1 190 
1 200 
1210 
12 20 
1230 
1240 
1250 
1 260 
1270 
1 280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1 380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1 500 
1510 
1520 

2000 
2010 
2020 
2030 
2040 
2050 



print home$:cd = 5:gosub 9000 

print tab(8) rvs$; "READING FILE INFORMATION!" 
rem - d a t a file-* 

open 15,8,15:rera open command chnl 

open 5 ,8, 5 , "inventory .rec , 1 , " + chr$(100) 

chnl$ = chr$(5):rem channel # 



for k = 1 to ptr 

rlow = k:rhigh = 

if rlow > 255 then 15000 

rec$ = chr$(rlow) + chr$(rhigh) 

print 



pztn$ = chr$( l):rem position 
print#15,"p";chnl$;rec$;pztn$ 
1 nput#5, item$(k) 



pztn$ = chr$(25):rem position 
print#15,"p";chnl$;rec$;pztn$ 
i nput#5 , ser 1$ ( k) 



pztn$ = chr$(40):rem position 
print#15,"p";chnl$;rec$;pztn$ 
input#5,cst$(k) 



= chr$(50):rem position 
p r I II L # 1 5 , " p" ; chn 1 $ ; r ec$ ; pztn$ 
i npu t #5 , roora$ ( k ) 



p z t n $ 
print 



pztn$ = chr$(70):rem position 
print#15,"p";chnl$;rec$;pztn$ 
inpu t#5 , desc$ ( k) 
next k 



close 5: close 15 

print horae$:cd = 5:gosub 9000 

print tab(8) "Insert diskette for copy!" 

print -.print 

print tab(8) "Press " ; wh t $ ; " RETUR!>1" ; y 1 w$ ; 
gosub 19000:rem return routine 



to continue 



~* — file output routine- 



print home$:cd = 5:gosub 9000 
print !ab(8) rvs$; "WRITING FILE 
rem *-data file-* 



INFORMATION ! " 
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2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
22A0 
2 2 50 
2260 
2 270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
23 50 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 

318 



open 15,8,15:rera open command chnl 

open 3 , 8, 3 , "inventory . bak , 1, " + chr$(100) 

chnl$ = chr$(3):rera channel # 



for k = 1 to ptr 

rlow = k:rem low byte of rec.# 
rhigh = 0:rem high byte of rec.# 
if rlow > 255 then 15000 
rec$ = chrS(rlow) + chr$(rhigh) 



p 


z 


t 


n$ 


p 


r 


i 


n t 


p 


r 


i 


nt 



chr$( l):rem position 



pztn$ = chr$(25):rem position 
print#15,"p";chnl$; rec$;pztn$ 
print#3,serl$(k) 



pztn$ = chr$(40):rem position 
print#I5,"p";chnl$;rec$;pztn$ 
print#3,cst$(k) 



pztn$ = chr$(j0):rem position 
print#15,"p";chnl$;rec$;pztn$ 
print#3,room$(k) 



chr$(70):rem position 



close 3:close 15 

print home$:cd = 5:gosub 9000 

print tab(8) "ALL FINISHED" 

print:print 

print tab(8) "Press "; wh t $;" RETURN "; y 1 w$ ; " to continue: 
sosub 19000:rera return routine 



pz t n 


$ = 


pr i n 


t#l 


p r i n 


t#3 


next 


k 



rem ''' * — return to i n v . m e n u — * * 

poke 19,0:rem restore input prompt 

print home$:rem clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem crsr down routine 

print tab(8) 

print rvs$; 

print "LOADING THE INVENTORY MENU" 
""homeinv.menu" 
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3090 : 
3100 : 
3110 : 

9000 rem ** — cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

9070 : 

15000 rem ** — figure rec.# routine--** 

15010 rhigh = int(rlow/256) 

15020 rlow = rlow - 256 * rhigh 

15030 return 

15040 : 

15050 : 

15060 : 

19000 rem **-return key routine--** 
19010 poke 19S,0:rera clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek ( 1 97 ) : rem store key press 
19060 if X = 1 then 19080:rem 1 = rtn 
19070 goto 19050:rem if not 1 go back 
19080 poke 198,l:rem allow for cursor 
19090 poke 631,0:rem clr kbrd 
19100 nu$ = "":rem clr string variable 
19110 poke 19,32:rem disable input ? 
19120 return 

ready . 
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■ Program for MAGAZINE.MENU 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 



* * * _ . 



magazine.raenu- 



rem ** --initialization--** 
home$ = chr $ ( 1 47 ) : r em clr/home 
::cd$ = chr$( 17):rem cursor down 
:: cu$ = chr$(145):rem cursor up 
::cl$ = chr$( 157) :reni cursor left 
::cr$ = chr$( 29):rem cursor right 
:blk$ = chr$( 144) : rem black 
:ylw$ = chr$( 158) : rem yellow 
:wht$ = chr$( 5):rem white 
:rvs$ = chr$( 18):rem reverse video 

poke 53280, 14:rem border = It. blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 9:rem set bkgrd to brn 



rem ** — menu — ** 

tb = 10:rem tab value-10 spaces 
print home$:rem clr/home 
print wht$ ; 
print tab(tb) 
print r vs$ ; 

print "MAGAZINE ARTICLES SYSTEM" 
print 

print y lw$ 

print tab(tb) 

print "1. WRITE RECORD" 

print: print tab(tb) 

print "2. READ RECORD" 

print:print tab(tb) 

print "3. SEARCH RECORD" 

print:print tab(tb) 

print "4. CORRECT RECORD" 

print:print tab(tb) 

print "5. TRANSLATE RECORD" 

printrprint tab(tb) 

print "6. COPY FILE" 

print:print tab(tb) 

print "7. LIST OF FILES" 

print:print tab(tb) 

print "8. END" 

print:print tab(tb) 

poke 19,32:rem disable input ? 

input "Which Program Number? ";n 

number = val(nu$) 



if number 



r t , 



if number = 



1 


then 


1000 


2 


then 


2000 


3 


then 


3000 


4 


then 


4000 
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840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

1000 

1010 

1020 

1030 

1040 

1050 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 

4030 

4040 

4050 

5000 

5010 

5020 

5030 

5040 

5050 

6000 

6010 

6020 

6030 

6040 

6050 

7000 

7010 

7020 

7030 

7040 

7050 



5 


then 


5000 


6 


then 


6000 


7 


then 


7000 


8 


then 


8000 



if number = 

i f number = 

if number = 

if number = 



rem '''-incorrect choice message-* 
p r i n t : pr in t : p r i n t tab(tb) 
print r V s $ ; " I nc o r r ec t Choice!" 
print:print tab(tb) 

print "Press "; wht $;" RETURN" ; ylw$ ; " to continue:"; 
gosub 19030:rem return key routine 
goto 500:rem menu — check again 



rem **--write record program--** 

file$ = "MAGAZINE. WRITE" 

gosub 17000:rem new program routine 



'magazine . write" : rem load & run 



rem ** — read record program--** 
file$ = "MAGAZINE, READ" 
gosub 17000:rem new program routine 
" "magazine . read" : rem load & run 



rem **--search record program--** 
file$ = "MAGAZINE. SEARCH" 
gosub 17000:rem new program routine 
* "magazine . search" : rem load & run 



rem **--correct record program--** 
file$ = "MAGAZINE. CORRECT" 
gosub 17000:rem new program routine 
^ "magazine . cor rect" : rem load & run 



rem ** --trans, record program--** 
file$ = "MAGAZINE. TRANSLATE" 
gosub 17000:rem new program routine 
*" maga zi ne . trans" : r em load & run 



rem **--copy file--** 

file$ = "MAGAZINE. COPY" 

gosub 17000:rem new program routine 

" "magazine . c o py ": r era load & run 



rem ** — list of files routine--** 

print home$:rem clr/home 

@"$" 

print cu$; chr$( 13) :rem 13 = rtn 

print "Are you ready to return to the menu?" 

print 
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7060 


gosub 


18000:rera y/n input routine 


7070 


if ye 


s$ = "y" 


then 500:reni menu 


7080 


goto 


7000: rem 


check again 


7090 








7 1 00 








8000 


rem * 


*--end routine — ** 


8010 


poke 


19,0: rem 


restore input prompt 


8020 


print 


home$:rem clr/horae 


8030 


cd = 


5:rem 5 lines down 


8040 


gosub 


9000: rem 


crsr down routine 


8050 


print 


tab(tb - 


5) 


8060 


print 


r vs$ ; 




8070 


print 


"That's 


all for this session 


8080 


print 


: print : print 


8090 


print 


tab(tb) 




8 1 00 


print 


r vs$ ; 




8110 


print 


"See you 


next time." 


8120 


print 


y 1 w$ 




8130 


cd = 


10:rem 10 


lines down 


81 AO 


gosub 


9000: rem 


crsr down routine 


8150 


end 






8 1 60 








8170 








9000 


rem * 


* - - c u r s r 


down routine — ** 


9010 


for i 


= 1 to cd 


9020 


print 


cd$; 





9030 next i 
9040 return 
9050 : 
9060 : 

17000 rem **--new program routine--** 

17010 print home$:rem clr/home 

17020 cd = 2:rem 2 lines down 

17030 gosub 9000:rem crsr down routine 

17040 print "You have selected the " ; f i 1 e$ : pr i n t : pr in t 

"program." 
170 50 print:print: print 

17060 print "Is this the program you want?" 
17070 print 

17080 gosub 18000:rem y/n input routine 

17090 if yes$ = "n" then 500:rera menu 

17100 print home$:rem clr/horae 

17110 cd = 5:rem 5 lines down 

17120 gosub 9U00:rem crsr down routine 

17130 print tab(tb - 5) 

17140 print rvs$; 

17150 print "Please wait!" 

17160 print:print:print 

17170 print tab(tb) 

17180 print rvs$; 

17190 print "I'm loading...." 

1 7200 p r i n t : pr i n t : pr in t 

17210 print tab(tb + 8) 

17220 print rvs$; 

17230 print file$ 

17240 poke 19,0:rem restore input prompt 
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17250 return 
17260 : 
17270 : 

18000 rem * * - - y / n input routine--** 

18010 print "Type a " ; wh t $ ; " Y " ; y 1 w$ ; " or " ; wh t $ ; " N " ; y 1 w$ ; " 
18020 poke 19,32:rera disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r v s $ ; " I nc or r ec t Cho ice ! " ; y lw$ 
18090 print 

18100 goto 18000:rera check again 
18110 : 

18120 : 

19000 rem ** --return key routine--** 
19010 print 

19020 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:"; 
19030 poke 198,0:rera clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0: rem no value 
19060 next i 

19070 X = peek ( 1 9 7 ) : r em store key press 

19080 if X = 1 then 19100 

19090 goto 19070:if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rera clr kbrd 

19120 nu$ = "":rera clr string variable 

19130 print horae$:rem clr/home 

19140 return 

ready . 



HOME INVENTORY SYSTEM 323 



Program for MAGAZINE. WRITE 



100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1 100 
1 105 
1110 
1115 
1120 



rem ***--write magazines rec, 



rem * * 
home $ 
: : c d $ 
: : cu$ 
: :cl$ 
: : cr$ 
: blk$ 
: ylw$ 
: wht$ 
: r V s $ 
: bnk$ 



--initialization--** 



br 
bue 



n $ 



chr$( 147) ; 
chr$( 17): 
chr$( 145) ; 
chr$( 157) : 
chr$( 29); 
chr$( 144) ; 
chr$( 158) ; 
chr$( 5); 
chr$( 18); 
chr$( 10); 
chr$( 149) ; 
chr$( 31); 



rem clr/home 

rem cursor down 

rem cursor up 

rem cursor left 

rem cursor right 

rem black 

rem ye 1 low 

rem white 

rem reverse video 

rem blank line 

rem brown 

rem blue 



poke 53280, 14;rem border = It. blue 
poke 53272, 23:rem upper/lower case 
poke 53281, 9:rem set bkgrd to ylw, 



rem ** — variables list--** 
rem rlow = low byte of rec.# 
rem rhigh = high byte of rec.# 
rem file = file # in open cmnd 
rem dvic = device # in open cmnd 
rem cmnd = command # in open cmnd 
rem ptr = pointer for # of reed's 
rem chnl$ = channel # in open cmnd 
rem rec$ = rec.# from rlow & rhigh 
rem pztn$ = position within record 
rem titl$ = name of article 
rem auth$ = author of article 
rem magz$ = name of magazine 
rem dteS = date of art/# of mag, 
rem page$ = page # of article 
rem code$ = description of article 
rem sp = # of spaces for input 



rem **--keyboard input routine--'' 
print ylw$ 

tb = 8:rem tab value 

poke 19,32:rera disable input ? 



rem * * - - n a m e of article--** 
print home$:rem clr/home 

print tab(lO) rvs$; "ADD TO FTLF OF ARTICLES" 

cd = 7:gosub 9000:rem crsr down 7 

print "1. Type in article's name please: " 
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1125 
1 130 
1135 
1 140 
1145 
1150 
1155 
1160 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1 300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1370 
1372 
1374 
1376 
1378 
1380 
1382 
1384 
1386 
1388 
1390 
1392 
1394 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 



print:print 
sp = 23 

gosub 5000:rem input subroutine 
input titl$ 

if len(titl$) > 23 then titl$ = 1 ef t $ ( t i 1 1 $ , 2 3 ) 
s$ = titl$:gosub 12000:titl$ = s$ 



rem **--author of article--** 
print horaeS:rem clr/home 

print tab(lO) rvs$; "ADD TO FILE OF ARTICLES" 

cd = 7:gosub 9000:rem crsr down 7 

print "2. Type in article's author please: " 

printrprint 

s p = 14 

gosub 5000:rem input subroutine 



input auth$ 
if len(auth$) 



14 then auth$ = lef t $ ( au t h$ , 1 4 ) 



s$ = auth$:gosub 12000:auth$ = s$ 



-name of magazine--=i 



1 9 



rem 




pri 


nt 


pri 


nt 


cd 




pri 


nt 


pri 


nt 


sp 




gos 


ub 


i n p 


ut 


if 


le 


s$ 





;z$ 



> 19 then magz$ = lef t $ ( mag z$ , 1 9 ) 



rem 

print 

print 

cd = 

print 

print 

sp = 

gosub 

input 

if le 

s$ = 



* — date of magazine — ** 
home$:rem clr/home 

tab(lO) rvs$; "ADD TO FILE OF ARTICLES" 
7:gosub 9000:rem crsr down 7 

"3. Type in magazine's date please: " 
: print 
9 

5000:rem input subroutine 
dte$ 

n(dte$) > 9 then dte$ 
dte$:gosub 12000:dte$ 



lef t$(dte$,9) 

8$ 



r 


era 






P 


r i 


n 


t 


P 


r i 


n 


t 


c 


d 






P 


r i 


n 


t 


P 


r i 


n 


t 


s 


P 






g 


s 


u 


b 


i 


np 


u 


t 



— page# of article--** 
home$:rem clr/home 

tab(lO) rvs$; "ADD TO FILE OF ARTICLES" 



input subroutine 
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1A45 
1450 
1455 
1460 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1 54 5 
1550 
1555 
1560 
1600 
1610 
16 20 
1630 
1640 
16-50 
1660 
1670 
1675 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1805 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 



1910 



1920 



326 



if len(page$) > 4 then page$ 
s$ = page$:gosub 12000:page$ 



left$(page$,4) 
s$ 



rem **--categeory of article--** 
print home$:rem clr/horae 

print tab(lO) rvs$; "ADD TO FILE OF ARTICLES" 
cd = 7:gosub 9000:rem crsr down 7 

print "5. Type in article's ca t e go r y /c ode please; 

printrprint 

sp = 9 

gosub 5000:rem input subroutine 

input code$ 

if len(code$) > 9 then code$ = left$(code$,9) 
s$ = code$:gosub 12000:code$ = s$ 



rem c 1 
print 

print: 

print: 

print: 

print: 

print: 

print : 

print : 

print 

print : 

gosub 

if yes 

print: 

input 

n b = V 

if nb 



-display for correction- 
ear screen/crsr down 3 



b 9000 




165 


TITLE 


M 


; titl$ 


AUTHR 


II 


; auth$ 


MAGZN 


II 


; magz 


DATE 


II 


; d te$ 


PAGE 


II 


; page$ 


CODE 


II 


; code$ 



print tab(tb) "1. 
print tab(tb) "2. 
print tab(tb) "3. 
print tab(tb) "4. 
print tab(tb) "5. 
print tab(tb) "6. 
print tab(tb) 
"Is this correct? " 
print tab(tb) 

18000:rem y/n input routine 
$ = "y" then 2000 
print tab(tb) 



if 
if 
if 
if 
if 
if 



nb 
nb 
nb 
nb 
nb 
nb 



"Which number 
al(nb$) 
= 1 then sp 
then sp 
then s p 
then sp 
then s p 
then sp 
or n b > 



is wrong? ";nb$ 

23 
14 
19 

9 

4 

9 



6 then gosub 14000:goto 1750 



print home$:cd = 8:gosub 9000 

print "Type in correct information: " 

print 

gosub 5000: rem input routine 
input cinfo$ 

s$ = cinfo$:gosub 12000:cinfo$ = s$ 

if nb = 1 then titl$ = 1 e f t $ ( c i n f o$ , 2 3 ) : go t o 1600:rem 
ask again 

if nb = 2 then auth$ = 1 e f t $ ( c i n f o $ , 1 4 ) : go t o 1600:rera 
ask again 

if nb = 3 then magz$ = 1 e f t $ ( c i n f o $ , 1 9 ) : go t o 1600:rem 
ask again 
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1925 if nb = 4 then dteS 

ask again 
1930 if nb = 5 then page$ 

asK again 
1940 if nb = 6 then code$ 

ask again 
1950 : 
1960 : 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2 2 50 
2260 
2270 
2280 
2290 
2300 
2302 
2304 
2306 
2308 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 



left$(cinfo$,9) : goto 1600:rera 
lef t$ ( cinf 0$ , 4 ) : goto 1600:rem 
lef t$ ( cinf 0$ , 9) : goto i600:rein 



rem **--file output routine--** 
rem *-pointer file-* 

open 2, 8, 2," magazines, ptr.seq, read" 
input#2 , ptr 
close 2 

if status = 16 then 3000 
ptr = ptr + 1 

rem * - d a t a file-* 

open 1 5 , 8 , 1 5 : r e m open command c h ri 1 
open 3 , 8 , 3 , "magazi nes . rec , 1 , " + chr$(85) 
rem 1 in line 2110 is letter not it 
chnl$ = chr$(3):rem channel # 
rlow = ptr:rera low byte of rec.# 
rhigh = 0:rem high byte of rec.# 
if rlow > 255 then gosub 15000 
rec$ = chr$(rlow) + chr$(rhigh) 

pztn$ = chr$( l):rem position 
print#15,"p";chnl$;rec$;pztn$ 
print#3,titl$ 

pztn$ = chr$(25):rem position 
print#15,"p";chnl$;rec$;pztn$ 
print#3 , auth$ 

pztn$ = chr$(40):rem position 
print#15,"p";chnl$; rec$;pztn$ 
pr int#3 , raagz$ 

pztn$ = chr$(60):rem position 
print#15,"p";chnl$; rec$;pztn$ 
print#3 , dte$ 

pztn$ = chr$(70):rem position 
print#15,"p";chnl$;rec$;pztn$ 
print#3, page$ 

pztn$ = chr$(75):rera position 
print#15,"p";chnl$;rec$;pztn$ 
pr int#3 , code$ 
close 3: close 15 



rem * -update ptr file-* 

open 2,8,2,"@0:raagazines.ptr,seq,write' 
pr int#2 , ptr 
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2440 

2450 

2460 

2470 

2480 

2490 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

12000 

12010 



close 2 



goto 4000:rem repeat routine 



rem **--first time use only — ** 
close 2 

open 2, 8, 2," magazines. ptr.seq, write" 

print#2 , "0" 
close 2 

goto 2000:rem begin file routine 



rem — repeat routine — 

print home$:rem clr/home 

cd = 3:rem 3 lines down 

gosub 9000:rem crsr down routine 

print "Do you want to add more articles?" 

print 

gosub 18000:rem y/n input routine 
if yes$ = "y" then 1000 
if yes$ = "n" then 6000 



rem **--input subroutine--** 
f or i = 1 to sp 

print chr$(175);:rem underline 
next i 

print. •print:print 

print "Do not go beyond the end of the line 

rem crsr up 5 

print cu$; cu$;cu$;cu$;cu$ 

return 



rem -■■----return to inv.menu — 

poke 19,0:rem restore input prompt 

print home$:rera clr/home 

cd = 5:rem 5 lines down 

gosub 9000:rem crsr down routine 

print tab(tb) 

print r V s $ ; 

print "LOADING THE MAGAZINES MENU" 
""magazine. menu" 



rem *''---cursor down routine--** 

f or i = 1 to cd 

print cd$; 

next i 

return 

rem **--strip excess underline character- 
s2$ = s$ 
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12020 i = 1 

12030 if mid$(s2$,i, 1) = chr$(175) then 12070 

12040 i = i + 1 

12050 if i > sp then 12070 

12060 goto 12030 

12070 s$ = left$(s2$,i - 1) 

12080 return 

12090 : 

12100 : 

12110 : 

14000 rem ^-incorrect choice message-* 
14010 print:print tab(tb) 
14020 print r vs$ ; " I ncor r ec t Choice!" 
14030 print:print tab(tb) 

14040 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:"; 

14050 gosub 19000:rera return key routine 

14060 return 

14070 : 

14080 : 

14090 : 

15000 rem ** — figure rec.# routine--** 

15010 rhigh = i n t ( r ] o w / 2 56 ) 

15020 rlow = rlow - 256 * rhigh 

15030 return 

15040 : 

15050 : 

15060 : 

18000 rem **--y/n input routine--** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wh t $ ; "N" ; y 1 w$ ; " :" 
18020 poke 19,32:rem disable input ? 
18030 input yes$ 

18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 

18070 print 

18080 print r v s$ ; " I ncor r ec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:rem begin again 
18110 : 
18120 : 
18130 : 

19000 rem **-return key routine--** 
19010 poke 198,0:rem clr kbrd buffer 
19020 for i = 631 to 640 
19030 poke i,0:rem no value 
19040 next i 

19050 X = peek ( 1 9 7 ) : r em store key press 
19060 if X = 1 then 19080:rem 1 = rtn 
19070 goto 19050:rem if not 1 go back 
19080 poke 198,l:rem allow for cursor 
19090 poke 631,0:rem clr kbrd 
19100 nu$ = "":rem clr string variable 
19110 poke 19,32:rem disable input ? 
19120 return 

ready . 
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planning 
a file system 



Rather than present another chapter explaining the programming of another system, 
this chapter will present the procedures involved in conceiving and creating a file 
system. I will use a Stock Market System as the example. Although shorter than 
previous chapters, this chapter is no less important. 

There are five main steps involved in conceiving and creating a specific data- 
base system. 

1. Know your subject. 

2. Plan carefully and organize your thoughts. 

3. Make preliminary decisions on the number of main variables, the length of 
each record, and, if necessary, the lengths of fields within each record. 

4. Roughly plan the sequence of the data-base operation and the code for each 
part of that operation. 

5. Begin on the code for the first part of the system. 

Some programmers will argue with either the sequence of the steps or the steps 
themselves. Some may say that such an outline is too limited. All may be right. I 
am merely trying to give a limited amount of guidance in the development of a 
specific file system. Some systems analysts are carried away with the precede 
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procedures. But one thing is clear. A certain amount of planning before coding is 
absolutely necessary! 



STOCK MARKET SYSTEM 

Results of the previous day's trading activity are printed in most daily newspapers. 
Normally, these results include such things as: 52-week high and low stock price; 
stock symbol; latest dividend; a yield figure; P/E ratio; sales; daily high, low, and 
closing price; and, possibly, the amount of price change from the previous day. 
This information is available for active issues on the New York and American 
Stock Exchanges. Less information is given for Over the Counter or NASDAQ 
issues, option, commodity, and bond trading. There are figures for the various 
averages: NYSE Index, Dow, Standard & Poors, American Index, NASDAQ Com- 
posite and/or Industrials, to name just a few. There are other key items to watch: 
gold, interest rates, value of the dollar overseas, money supply. President's daily 
intake of vitamins, and so on. As you might guess, the list is limitless. 

Although an investment record may contain more variables than maintaining 
information on your own library, the principle is the same. You must thoroughly 
know your subject in order to be able to make decisions concerning the information 
to be saved. The first step in planning your data base should be deciding which 
information is of value {i.e., what information to save). 

In our Stock Market System, I am going to severely limit the amount of 
information saved. Individuals may wish to keep additional information they believe 
to be important. For each issue, we will save the daily high, low, and closing price, 
plus the day's volume, P/E ratio, and date. In addition, we will save any price that 
makes either a new high or new low for that issue. 

Steps two and three somewhat blend together at this point. In the planning, 
decisions are made. Most stock prices are under $1000 per share, so I will allow 
a maximum of three places before the decimal point. Prices are usually given in 
terms of eighths of a dollar {i.e., 3/8 or 1/2). With a little extra planning and coding, 
significant disk space can be saved on each issue. If the extreme right figure is 
always viewed as the decimal portion of the stock price, then four digits will 
represent all stock prices up to $999 and 7/8 per share. (This price would be saved 
on the disk as 9997.) Saving the high, low, and close each day already means 15 
bytes per issue per day (4 bytes for the number plus one byte for the delimiter for 
a total of 5 bytes for each high, low, and closing price). 

Volume can be handled in somewhat the same way. Most papers indicate the 
sales volume only in hundreds of shares sold per day. A volume of 2000 shares 
would be displayed as 20. Since virtually every stock trades under 9,999,900 shares 
in one day, we can limit the number of places to six (99999 plus one for the carriage 
return delimiter). All P/E ratios are under 999 for any issue. This necessitates 
another four bytes for each issue. Finally, we will save the trading date with each 
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record (ten more bytes). That brings the total number of bytes for each issue to 35: 
4 for the P/E ratio, 6 for the volume, 5 for the high, 5 for the low, 5 for the close, 
and 10 for the date. We will save any new high or new low price in a separate 
sequential file. 

Next, we must decide on the number of issues to follow on a daily basis. This 
is an individual choice and often depends on the time available for closely following 
the market. A reasonable figure to start out with is ten issues. If a number greater 
than ten is used, the string array variable chosen for the stock names will need to 
be dimensioned to the proper number. With the number of stocks determined, we 
can calculate the maximum number of bytes used for each day's transactions. Ten 
stocks, each requiring 35 bytes, mean a length of 350 bytes per trading day. Based 
on approximately 170,000 available bytes on a single-sided diskette, we can store 
just under 500 days' trading information. That is about a year and a half of stock 
market activity for ten issues on a single data diskette. 

Step four is a rough plan of the sequence of programs and the code within each 
program. Following the procedures we have used in our previous examples, we 
need programs that will create the necessary files and daily add to those files. 
Second, we need programs to display, in a variety of ways, the information either 
stored in the file or derived from the information stored. Finally, we must have 
correction programs. 

I am going to introduce another method of creating random files. I have included 
a program that will only be used once for each set of stocks followed. The "stock. menu" 
program indicates that, when the user chooses the first option, the "stock. add" 
program is run. The very first time (and only the first time) the "stock. menu" 
program is run and the number one selection is made, the computer will load a 
program that is called "stock. add". In reality, this is a program used one time to 
create the "stock. ptr" (stock pointer) file and the "stock. high/low" file. It also 
provides the user with some information on the general operation of the Stock 
Market System. Once these files have been created and the user has indicated that 
the information has been absorbed, this program renames itself on the diskette so 
that it now has the program file name "stock. oldadd". Then, it renames a second 
program from its original "stock. realadd" file name to the necessary "stock. add" 
file name. Finally, the user is given the choice to either return to the main Stock 
Menu or to add the first day's trading activity. The "stock. menu" program always 
runs a program called "stock. add". The first time it runs one program (originally 
called "stock. add", renamed to "stock. oldadd"), but every time after that, it runs 
another program (originally called "stock. realadd", renamed to "stock. add"). The 
different programs share the same file name, "stock. add", but at different times. 
In summary, the first program is designed to create the necessary files and then 
rename both itself and the real "stock. add" program. The real "stock. add" (originally 
"stock. realadd") program is designed to daily update each individual stock's file. 
The explanation may sound complicated, but the operation itself is surprisingly 
simple. 



332 CHAPTER TWELVE 



Within the file addition program, the sequence of operation is fairly standard. 
We need to read in: (1) the value of the file pointer (add one to that value), (2) the 
symbols for the various stocks, and (3) their current high and low price. Next, the 
previous day's figures must be entered for each issue and checked for accuracy. 
The previous day's figures must also be compared to the current high and low, and 
if they exceed those figures, they need to replace the appropriate figure. Finally, 
all the new information must be written to the disk. 

The editing programs should follow a similar pattern but with a few exceptions. 
The pointer should be determined by an input from the keyboard. The high, low, 
close, volume, and P/E should come from the disk instead of the keyboard, with 
corrections coming from the keyboard. 

The display programs are more difficult to structure in any absolute manner. 
The only certain structure is that information comes from the disk and is displayed 
either on the screen or through the printer. In between, a variety of steps can take 
place. The information can be used to calculate certain values that may be used to 
evaluate a particular situation and project the price movement of the stock. Or the 
disk information may simply be formatted for display on either the screen or the 
printer. The information may be used to graph the price movement of the stock or 
compare its movement against that of another stock or average. The display portion 
of the Stock Market System is the core of the system and is usually not a fixed set 
of programs. User needs change and require that the display programs change. In 
the system presented, the display programs will be limited in their scope. We will 
display individual stock histories, along with some calculated figures, averages, 
price and volume changes, and the like. We will not get into graphic representation 
of stock performance in this book. (A future book will deal with graphic represen- 
tation of data base information, because it is such a broad topic that it requires a 
book of its own.) 

The final step is coding the programs according to the plans established. At 
the end of this chapter, you will find minimum programs designed according to the 
structure outlined in this chapter. You are encouraged to take these minimum 
programs and expand upon them to fit your own interest, or alter them to cover a 
topic of your own design. It is only by practical experience that you will learn to 
create Commodore-64 BASIC files. 



QUESTIONS 

1. True or False: Good programmers can just sit down and start writing code. 

2. What is the first step in planning a data base system? 

3. Give the three main parts to any data base system. 

4. Which part must be flexible as user needs change? 
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ANSWERS 

1. False 

2. Deciding which information is of value 

3. Creation and addition, display, correction 

4. Display 
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■ Program for STOCK.MENU 



100 


rem * 


--stock. menu — * 






110 














120 














130 


rem * 


-'--initialization 






140 


horae$ 


= chr$(147) 


rem 


c 1 r / home 


1 _) u 




:cd$ 


= chr$( 17) 


rem 


cursor 


down 


1 f\ri 

i D U 




: cu$ 


= chr$(145) 


rem 


cursor 


up 


170 




: cl$ 


= chr$( 157) 


rem 


cursor 


left 


180 




: cr$ 


= chr$( 29) 


rem 


c ursor 


right 


190 




blk$ 


= chr$(144) 


rem 


black 




200 




ylw$ 


= chr$( 158) 


rem 


yellow 




210 




wht$ 


= chr$( 5) 


rem 


white 




220 




rvs$ 


= chr$( 18) 


rem 


reverse 


vide 


230 














240 


poke 


53280, 14: rem 


bore 


er = It 


. blue 


250 


poke 


53272, 23:rera 


u p pe 


r /lowe r 


case 


260 


poke 


53281, 9:reni 


set 


bkgrd t 


brn 



270 : 
280 : 



500 


rem * 


* — menu--** 


510 


tb = 


10:rem tab value-10 spaces 


520 


print 


home$:rem clr/home 


530 


print 


wht$ ; 


540 


print 


tab( tb) 


550 


print 


rvs$ ; 


560 


print 


"STOCK SYSTEM MENU" 


570 


print 




580 


print 


ylw$ 


590 


print 


tab(tb) 


600 


print 


"1 . ADD STOCK INFO. " 


610 


print 


: print tab(tb) 


620 


print 


"2. DISPLAY STOCK INFO." 


630 


print 


: print tab( tb) 


640 


print 


"3. DISPLAY HI/LOW VALUES 


650 


print 


: print tab( tb) 


660 


print 


"4. CORRECT HI/LOW VALUES 


670 


print 


:print tab(tb) 


680 


pr int 


"5. CORRECT STOCK DATA" 


690 


print 


:print tab(tb) 


700 


print 


"6. DIF TRANSLATION" 


710 


print 


: print tab( tb) 


720 


print 


"7. LIST OF FILES" 


730 


print 


: print tab( tb) 


740 


print 


"8. END" 


750 


print 


: print tab( tb) 


760 


poke 


19,32:rem disable input ? 


770 


input 


"Which Program Number? "; 


780 


n u ra b e 


r = val(nu$) 



790 



800 


if 


number = 


1 


then 


1000 


810 


if 


number = 


2 


then 


2000 


820 


if 


number = 


3 


then 


3000 


830 


if 


number = 


4 


then 


4000 
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840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

9A0 

950 

960 

970 

1000 

1010 

1020 

1030 

1040 

1050 

2000 

2010 

2020 

2030 

2040 

2050 

3000 

3010 

3020 

3030 

3040 

3050 

4000 

4010 

4020 

4030 

4040 

4050 

5000 

5010 

5020 

5030 

5040 

5050 

6000 

6010 

6020 

6030 

6040 

6050 

7000 

7010 

7020 

7030 

7040 

70 5 



5 


then 


5000 


6 


then 


6000 


7 


then 


7000 


8 


then 


8000 



if number 
if number 
if number 



rem '''--incorrect choice message-* 
print:print:print Lab(tb) 
print r vs$ ; " I n CO r r ec t Choice!" 
print:print tab(tb) 

print "Press " ; wh t $ ; " RETUR N " ; y 1 w$ ; ' 
gosub 19030:rem return key routine 
goto 500:rem menu — check again 



to continue: 



rem * * 




-stock add program — * 




f i le$ 




"STOCK .ADD" 




gosub 


1 


7000: rem new program 


routine 


* "stoc 


k 


.add":rera load & run 




rem * * 




-stock display progra 


m — * * 


f ile$ 




"STOCK .DISPLAY" 




gosub 


1 


7000:rem new program 


routine 


'"stoc 


k 


. d i sp 1 a y " : r era load S 


run 



r 


e 


m 




f 


i 


] 


G$ 


8 





s 


ub 




tt 


s 


toe 



rem 




file 


$ 


gosu 


b 


'"st 


c 


rem 




file 


$ 



--display hi / low program — 
= "STOCK. DSP HI/LOW" 
17000:rem new program routine 
k.dsp hi/low":rem load & run 



--correct hi /low program — ** 
= "STOCK. CRT HI/LOW" 
L7000:rem new program routine 
c.crt hi/low":rem load & run 



-correct stock program — 
= "STOCK .CORRECT" 
gosub 17000:rem new program routine 
' " s t oc k . cor r e c t " : r era load & run 



-translate stock info--'i'* 
"STOCK .TRANSLATE" 
'000:rem new program routine 
. t rans 1 a t e " : rem load & run 



^ — list of files routine — ** 
home$:rem clr/home 

cu$ ; chr$ ( 1 3 ) : rem 13 = rtn 

"Are you ready to return to the menu?' 



re 


m * * 


f i 


le$ 


go 


sub 


A tl 


stoc 



rem 




pr i 


nt 


@"$ 


tl 


pri 


n t 


p r i 


n t 


pr I 


nt 
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7060 


go sub 


18000:rem y/n 


input routine 


7 n 7 ri 


if yes$ = "y" then 


500:rem menu 


7 n s n 
/ u o u 


goto 


7000: rem check 


again 


7 ri Q n 














8000 


rem * 


*--end routine 


-1- -f 


8010 


poke 


19,0:rem resto 


re input prompt 


8020 


print 


home$:rem clr 


/home 


8030 


cd = 


5:rem 5 lines 


down 


8040 


gos u b 


9000:rem crsr 


down routine 


80 50 


print 


t a b ( t b - 5 ) 




8060 


print 


r V s $ ; 




8070 


p r i n t 


"That's all f 


or this session 


8080 


print 


:print:print 




8090 


print 


t a b ( t b ) 




8 1 00 


print 


r V s S ; 




8110 


[) r j n t 


"See you next 


time." 


81 20 


p r i n t 


y lw$ 




8 1 30 


cd = 


10:rem 10 lines down 


8140 


gosub 


9000 : rem crsr 


down routine 


81 50 


end 






8 1 60 








8 1 70 








9000 


rem * 


*--cursor down 


routine--** 


9010 


for i 


= 1 to cd 




9020 


print 


cd$ ; 




90 30 


next 


i 




9040 


return 





90 5 : 
906 : 

17000 rem **--new program routine--** 

17010 print home$:rera clr/home 

17020 cd = 2:rem 2 lines down 

17030 gosub 9000:rem crsr down routine 

17040 print "You have selected the " ; f i le $ : pr in t : pr in t 

"program . " 
17050 print:print:print 

17060 print "Is this the program you want?" 
17070 print 

17080 gosub 18000:rera y/n input routine 

17090 if yes$ = "n" then 500:rem menu 

17100 print home$:rem clr/horae 

17110 cd = 5:rem 5 lines down 

1712 gosub 9000:rem crsr down routine 

17130 print tab(tb - 5) 

17140 print rvs$; 

17150 print "Please wait!" 

17160 print :print:print 

1717 print tab(tb) 

17180 print rvs$; 

17190 print "I'm loading...." 

17200 print ;print:print 

17210 print tab(tb + 8) 

17220 print rvs$; 

1 7 2 3 print C i I e $ 

17240 poke 19,0:rem restore input prompt 
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17250 
17260 
17270 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 

ready . 



return 



rem **--y/n input routine--** 

print "Type a " ; wh t $ ; " Y " ; y 1 w$ ; " or " ; wh t $ ; "N" ; y 1 w$ 
poke 19,32:rem disable input ? 
input yes$ 
print 

if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
print 

print rvs$ ; "Incorrect Cho i c e ! " ; y 1 w $ 
print 

goto 18000:rein check again 



rem ** --return key routine--** 
print 

print "Press "; wh t $; "RETURN "; y lw$ ; " to continue:"; 
poke 198,0:rem clr kbrd buffer 
for i = 631 to 640 
poke i,0:rera no value 
next i 

X = peek ( 1 97 ) : rem store key press 

if X = 1 then 19100 

goto 19070:rem if not 1 go back 

poke 198,l:rem allow 1 for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rera clr string variable 

print home$:rem clr/home 

return 
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■ Program for STOCK.ADD 



100 rem 

110 : 

120 : 

130 rem 

140 horae$ 



-initalize stock files--*** 



: cd$ 
: cu$ 
:cl$ 
: cr$ 
bl k$ 
ylw$ 
wht$ 
r vs$ 



-initialization--** 

c h r $ ( 1 4 7 ) : r em clr/horae 

chr$( 17):rera cursor down 

c hr $ ( 1 4 5 ) : r era cursor up 

chr$(15 7):rein cursor left 

chr$( 29):rem cursor right 

chr$ ( 1 44 ) : rem black 

chr$( 158) : rem yellow 

chr$( 5):rem white 

chr$( 18):rera reverse video 



1 5 
160 
170 
180 
190 
200 
210 
220 
230 

240 poke 53280, 14:rera border = It. blue 
250 poke 53272, 23:rem upper/lower case 
260 poke 53281, 9:rera set bkgrd to brn 
270 : 
280 : 

1000 rem ** — information — ** 
1010 print home$:rem clr/home 

1020 print "Before you can enter any daily stock" 
1030 print 

1040 print "information, you must decide which" 
1050 print 

1060 print "stocks you will be following. This" 

1070 print 

1080 print "program will ask you to enter the name" 

1090 print 

1100 print "or symbol of ten stocks and their re-" 
1110 print 

1120 print "spective values for the high and low" 
1130 print 

1140 print "prices within the last 12 months. If" 
1150 print 

1160 print "the high or low values are not known," 
1170 print 

1180 print "simply enter a '0'. The high and low" 
1190 print 

1200 print "values will automatically be updated" 
1210 print 
1220 : 

1230 gosub 19000:rem return key routine 
1240 : 

1250 print "when daily prices exceed or are less" 
1260 print 

1270 print "than the values in the HI/LOW file." 
1280 print 

1290 print "If you need to change any information" 
1300 print 

1310 print "in the HI/LOW file, choose #4 CORRECT" 
1320 print 

1330 print "HI/LOW from the main program menu. Once" 
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1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1 500 
1510 
1520 
1530 
1540 
15 50 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 

21 30 
2140 
2150 
2160 



2170 
2180 

2190 
2200 
2210 



340 



print 

print "you have finished entering the infor-" 
print 

print "mation in this program, you will be" 
print 

print "given a choice to enter the first" 
print 

print "day's prices or to return to the main" 
print 

print "program menu. After this first time, the" 
print 

print "ADD STOCK INFO. (#1) will not show all" 
print 

gosub 19000:rem return key routine 

print "this text or require you to update the" 

print 

print "HI/LOW file. If you want to re-read" 
print 

print "this information, type a 'Y', if not," 
print 

print "type an 'N ' . " 
print 

gosub 18000:rem y/n input routine 

if yes$ = "y" then 1000 

gosub 19000:rem return key routine 



rem ** --keyboard input routine — ** 

for k = 1 to 10 

print home$:rem clr/home 

print "Type in the name of the stock or its" 
print 

print "symbol. You will be given a chance to" 
print 

print "make corrections later." 
print 

print "Stock #";k;": ";:input stk$(k) 
print 

gosub 16000:rem remainder routine 

print "If you are not sure of the " ; wh t $ ; " h i " ; y 1 w$ ; " 

value for" 

print 

print "the previous 12 months, enter a '0'." 
print 

print "12 month " ; wht$ ; "hi " ; y lw$ ; " value for ";stk$(k);": 
";:input hi$(k) 

gosub 16000:rem remainder routine 

print "If you are not sure of the ";wht$;"low";ylw$;" 
value for" 

print "the previous 12 months, enter a '0'." 
print 

print "12 month " ; wh t $ ; " 1 o w" ; y 1 w$ ; " value for ";stk$(k);"; 
" ; : input low$( k) 
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2220 
2230 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 

3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
5000 
5010 
5020 
5030 
5040 
5050 
5060 



rem *''---cor r ec t i on routine--"-^''' 
rem clr/horae crsr down 5 
print home$:cd = 5:gosub 9000 
print 

print "1. ";stk$(k) 
print 

in = V al ( hi $ ( k ) ) : gos ub 17000:rem convert to fraction 

print "2. Hi value = " ; m ; " ";f$ 

print 

ra = V a 1 ( 1 o w $ ( k ) ) : go sub 17000:rem convert to fraction 

print "3. Low value = ";m;" ";f$ 

print 

print "Is this correct? "; 

gosub 18000:rera y/n input routine 

print 

if yes$ = "n" then 3170 

goto 3250:rem next 1 

input "Which number is wrong? ";nb 

print 

if nb = 1 then input "Correct stock name or symbol: ' 
stk$(k) 

if nb = 2 then input "Correct hi value: ";hi$(k) 
if nb = 3 then input "Correct low value ";low$(k) 
if nb < 1 or nb > 3 then print "INCORRECT CHOICE!" 
goto 3000:rem ask again 
print 
next k 



rem 



-file output routine--** 



rem * -stock pointer file-* 

open 2,8,2,"0:stock.pointer,seq,write" 

print#2,"0" 

close 2 

rem *-hi/low data file-* 

open 3 , 8 , 3 , " : hi / low data , seq , write" 

for k = 1 to 10 

print#3, stk$(k) 

print#3,hi$(k) 

pr in t#3 , low$ ( k) 

next k 

close 3 



rem **--rename files routine--** 

@"r:stock.oldadd=stock.add" 

@"r : stock. add=stock. real" 

rem clr/horae crsr down 5 

print home$:cd = 5:gosub 9000 

print "Do you want to add the first day's" 

print 
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5070 print "stock prices? "; 

5080 gosub 18000:reni y/n input routine 

5090 print 

5100 if yes$ = "y" then " "s toe k . ad d" : r em load & run stock. add 
5110 "" s toe k . menu" : rem load & run menu 
5120 : 
5130 : 

9000 rem **--cursor down routine--** 
9010 for i = 1 to cd 
9020 print cd$; 
9030 next i 
9040 return 
9050 : 
9060 : 
16000 rem * 
16010 print 
16020 print 
16030 print 
16040 print 
16050 print 
16060 print 
16070 print 
16080 print 
16090 print 
16100 print 
16110 print 
16120 print 
16130 print 
16140 print 
16150 print 
16160 print 
16170 print 
16180 print 
16190 print 
16200 print 
16210 return 
16220 : 
16230 : 



17000 


re 


m ** 


--convert to 


f ract 


17010 


f 


= m 


- int ( m 


/lO) ' 


= 10 


17020 


m 


= in 


t(m/10) 






17030 


if 


f = 


then 


f$ ■ = 


II II 


17040 


if 


f = 


1 then 


f$ = 


"1/8" 


17050 


if 


f = 


2 then 


f$ = 


"1/4" 


17060 


if 


f = 


3 then 


f$ = 


"3/8" 


17070 


if 


f = 


4 then 


f$ = 


"1/2" 


17080 


if 


f = 


5 then 


f$ = 


"5/8" 


1 7090 


if 


f = 


6 then 


f$ = 


"3/4" 


17100 


if 


f = 


7 then 


f$ = 


"7/8" 


17110 


re 


turn 









17120 : 
17130 : 

18000 rem **--y/n input routine--** 

18010 print "Type a " ; wh t $ ; " Y " ; y 1 w $ ; " or " ; wh t $ ; "N" ; y 1 w $ ; " :" 

18020 poke 19,32:rem disable input ? 

18030 input yes$ 

342 CHAPTER TWELVE 



* --reminder routine — ** 
horae$:rem clr/home 
tab(8) 

"***** REMEMBER =:=*-k=;=*" 

"You must add the fraction as the last" 
"digit! 21 5/8 should be entered as: 215" 

"If the number has no fraction, please" 
"enter a '0' after the number! 21 even" 
"should be entered as: 210" 



tab(ll) "1/8 = 1" 

tab(ll) "1/4 = 2" 

tab(ll) "3/8 = 3" 

tab(ll) "1/2 = 4" 

tab( 11 ) "5/8 = 5" 

tab(ll) "3/4 = 6" 

tab(ll) "7/8 = 7" 

tab(ll) "EVEN = 0" 



18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 

18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 

18070 print 

18080 print r v s $ ; " I nc o r r ec t Choice !"; ylw$ 

18090 print 

18100 goto 18000:rem check again 

18110 : 

18120 : 

19000 rem **--return key routine--** 

19010 print 

19020 print "Press "; wht $; "RETURN "; y lw$ ; " to continue:"; 

19030 poke 198,0:rem clr kbrd buffer 

190A0 for i = 631 to 640 

19050 poke i,0;rem no value 

19060 next i 

19070 X = peek( 197) : rem store key press 

19080 if X = 1 then 19100 

19090 goto 19070:rein if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rem clr kbrd 

19120 nu$ = "":rera clr string variable 

19130 print home$:rem clr/home 

19140 return 
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■ Program for STOCK.REAL 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
5 20 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 



rem 



***--add stock information--' 



rem 




-initialization 






iome$ 




chr$( 147) 


rem 


c 1 r /home 


: :cd$ 




chr$( 17) 


rem 


cursor 


down 


: : cu$ 




chr$( 145) 


rem 


cursor 


up 


: :cl$ 




chr$(157) 


rem 


cursor 


left 


: : c r $ 




chr$( 29) 


rem 


cursor 


right 


: blk$ 




chr$( 144) 


rem 


black 




: ylw$ 




chr$( 158) 


rem 


yellow 




: wht$ 




chr$( 5) 


rem 


whi te 




: rvs$ 




chr$( 18) 


rem 


reverse 


vide 



poke 5 3 280 , 1 : rem border = It. blue 
poke 5 32 72 , 2 3 : rem upper/lower case 
poke 53281, 9:rem set bkgrd to brn 



rem ** — variables list — ** 

rem st. kS = fitock symbol 

rem hi$ = current hi price 

rem low$ = current low price 

rem dte$ = date 

rem nh$ = new high 

rem hl$ = new low 

rem f$ = fraction 

rem pe = p/e ratio 

rem vol = sales volume 

rem h = daily high price 

rem low = daily low price 

rem c = daily closing price 

rem cr = corrected figure 



rem **--file input routine--** 
rem * -pointer file-* 

open 2, 8, 2, "stock. pointer, seq, read 
input#2 , ptr 



ptr = ptr + 1 

rem *-high/low file-* 

open 3, 8, 3, "hi/low data, seq, read" 

for k = 1 to 10 

input#3 , stk$ ( k) 

input#3,hi$(k) 

input#3 , low$( k) 

next k 

close 3 
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630 
640 
650 
660 ; 
670 : 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 

1210 
1220 

1230 
1240 

1250 
1260 

1270 
1280 

1290 
1300 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 



k = 1 

print y 1 w $ 

poke 19,32:rera disable inpjt ? 



print 



print 
gosub 
if yes 
print : 
goto 1060 



keyb 


n ct T A "in 


put routine — v 


date i 


n f or ma t 


ion-* 


r / home 


c rsr d 


own 5 


horae$ : 


cd = 5: 


gosub 9000 


"Type 


in 1 da 


y's date: ";dte$ 


print 






"Today 


' s date 


is ";dte$ 


print 






"Is th 


is c o r r 


ect? "; 


18000: 


rem y / n 


input routine 


$ = "y 


" then 


1160 


input 


"Type i 


n the correct date 



;dte3 



rem * 

print 

poke 

print 

print 

print 

"; : in 

print 

print 

input 

gosub 

print 

input 

gosub 

print 

input 

gosub 

print 

input 



rem - 
rem c 
print 
print 
print 
print 
print 
print 
m = h 
print 
ra = 1 
print 
ra = c 



-stock information-* 

home$:rem clr/home 
19,32:rem disable input 



tab(5) wht$ 
:print: print 

s t k$ ( k ) ; " ' s 
put pe 

:print:print 
stk$(kj ;"'s 
vol 

1 6000: rem 
stk$(k) ;" 
h 

1 6000: rem 
stk$i,k; ; " 
low 

16000: rem 
stk$(k) ; " 
c 



stk$(k) 
tab(5) ylw$; 

";wht$;"P/E RATIO" ; y lw$ ; " for ";dte$; 



tab( 5) 
";wht$; 



"VOLUME" ;ylw$;" for ";dt 

routine 

s " ;wht$ ; "HIGH" ; ylw$ ; " for ";dte$ 

";dte$; 
" ; dte 



e$; 



reminder routine 



reminder routine 
s ";wht$;"LOW";ylw$;" 



for 



reminder 



';wht$ 



routine 
"CL0SE";ylw3 



for 



'^--correction routine--** 
Ir/home crsr down 5 
home$:cd = 5:gosub 9000 

stk$(k);"'s data for ";dte$ 
: print 

"1 . P/E ratio " ; pe 

"2, Volume " ;vol 

:gosub 17000:rem convert to fraction 

"3. High ";m;" ";f$ 

ow:gosub 17000:rem convert to fraction 

"4. Low ";m;" ";f$ 

:gosub 17000:rem convert to fraction 
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2130 
2140 
2150 

2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 

2240 
22 50 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
3000 
3010 
3020 
3030 
3040 
3050 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4 100 
4110 
4120 
4130 
4140 
4150 
4160 
41 70 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 



print "5. Close " ; m ; " ";f$ 

print 

print "Is this correct? "; 

gosub 18000:rera y/n input routine 

print 

if yes$ = "n" then 2220 



goto 


3000: 


rem exchange routine 




'■ 

input 


"Which number is wrong? 


" ; n b 


if nb 


< 1 


or nb > 5 then print 


: pr i n t 


goto 


2140 






print 








input 


"The 


correct figure = "; 


cr 


if nb 


= 1 


then pe = cr 




if nb 


= 2 


then vol = cr 




if nb 


= 3 


then h = cr 




if nb 


= 4 


then low = cr 




if nb 


= 5 


then c = cr 




goto 


2000: 


rem ask again 




print 









"INCORRECT CHOICE 



rem ** — exchange hi/low--** 

if h > val(hi$(k)) then hi$(k) = str$(h):nh$ = "*" 
if low < val(low$(k)) then low$(k) = s t r $ ( 1 ow ) : n 1 $ 
$(k)) = then low$(k) = str$(low) 



-dati, file update--** 
'home crsr down 5 
)me$:cd = 5:gosub 9000 



if va 


K 


rem * 




rem c 


Ir 


print 


h 


print 


t 


print 


: P 


print 


t 


cvt$ 




gosub 


1 


stk$ 




open 


1 5 


open 


3 


rem 1 


i 


rem 3 


5 


chnl$ 




r 1 ow 




r h i gh 




if rl 


ow 


rec $ 




p z t n $ 





s";ylw$;" fil 



stk$(k) 
4000: rer 
cvt$ 



n comma 


nd 


. d a t a , 1 


It 


s 1 e 1 1 e 


r 


is rec. 


] e 


channel 


# 


byte of 


r 


byte of 


r 



0:rem high 
if rlow > 255 then 15000:rem rec. 
chr$(rlow) + chr$(rhigh) 

chr$( l):reni position 
print#15,"p";chnl$;rec$;pztn$ 
pr int#3 , dte$ 

ss$=str$( pe) : gosub 20000 : pe$=ss$ 
pztn$ = chr$ (ll):rem position 



-not # of records 



routine 
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4270 print#15,"p";chnl$;rec$;pztn$ 
4280 print#3,pe$ 
4290 : 

4300 ss$=str$ ( vol ) : gosub 20000 : vol$=ss$ 
4310 pztn$ = chr$ (15):rem position 
4320 print#15, "p" ; chnl$ ; rec$ ; pztn$ 
4330 print#3,vol$ 
4340 : 

4350 ss$ = str$(h) .-gosub 20000:h$ = ss$ 
4360 pztn$ = chr$ (21):rein position 
4370 print#15,"p";chnl$;rec$;pztn$ 
4380 print#3,h$ 
4390 : 

4400 ss$=str$ ( 1 ow) : gosub 20000 : low$=ss$ 
4410 pztn$ = chr$ (26):rem position 
4420 print#15,"p";chnl$;rec$;pztn$ 
4430 print#3,low$ 
4440 : 

4450 ss$=str$( c ): gosub 20000:c$=ss$ 
4460 pztn$ = chr$ (31):reni position 
4470 print#15,"p";chnl$;rec$;pztn$ 
4480 print#3,c$ 
4490 : 

4500 close 3:close 15 
4510 : 

4520 nh$ = "":nl$ = "" 
4530 k = k + 1 

4540 if k < 11 then 1150:rem next stock 
4550 : 
4560 : 

5000 rem ** — hi/low file update — ** 

5010 open 3 , 8 , 3 , "@0 : hi / low data , seq , write" 

5020 for k = 1 to 10 

5030 print#3,stk$(k) 

5040 print#3,hi$(k) 

5050 print#3,low$(k) 

5060 next k 

5070 close 3 

5080 : 

5090 : 

6000 rem **--pointer file update — ** 

6010 open 2 , 8 , 2 , "@0 : s t ock . point er , seq , wr i t e" 

6020 print#2,ptr 

6030 close 2 

6040 : 

6050 : 

7000 rem **--return to main menu--** 

7010 print home$:rem clr/home 

7020 cd = 5:gosub 9000:rem crsr down 5 

7030 print tab(14) 

7040 print rvs$;"PLEASE WAIT!" 

7050 p r i n t : pr in t : pr i n t 

7060 print tab(ll) 

7070 print "LOADING STOCK. MENU" 

7080 ""stock. menu" 

7090 : 



PLANNING A FILE SYSTEM 347 



7100 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 

14120 

14130 

14140 

14150 

14160 

14170 

15000 

15010 

15020 

15030 

15040 

15050 

16000 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

16190 

16200 

16210 

16220 

16230 



rem **--cursor down routine- 

for i = 1 to cd 

print cd$ ; 

next i 

return 



rem * * - 


-convert to 


lowercase 


nc$ = " 


M 




for c V 


= 1 to len( 


cvt$) 


X = a s c 


(raid$ ( cvt$ , 


cv.D) 


if X > 


192 then x 


= X - 128 


nc$ = n 


c$ + chr$(x 


) 


next c V 






cvt$ = 


nc$ 




f = asc 


(left$(cvt$ 


.1)) 


f = f + 


128 




n c $ = c 


hr$(f) + ri 


ght$(cvt$, 


return 







rem cvt$ = converted to lowercase 
rem nc$ = 1st 1 e t t er / u p pe r ca se 



rem ** --figure rec.# routine- 

rhigh = int(rlow/25 6) 

rlow = rlow - 256 * rhigh 

return 



rem * * 

print 

print 

print 

print 

pr int 

pr int 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

return 



--reminder routine- 
home$ : rem clr/home 
tab(8) 

REMEMBER— 



"You must add the fraction as the last" 

"digit! 21 5/8 should be entered as: 215" 

"If the number has no fraction, please" 
"enter a '0' after the number! 21 even" 

"should be entered as: 210" 

tab(ll) "1/8 = 1" 

tab(ll) "1/4 = 2" 

tab(ll) "3/8 = 3" 

tab(ll) "1/2 = 4" 

tab(ll) "5/8 = 5" 

tab( 1 1 ) "3/4 = 6" 

tab(l 1 ) "7/8 = 7" 

tab(ll) "EVEN = 0" 
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17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 
17100 
17110 
17120 
17130 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
19150 
19160 
20000 
20010 
20020 
20030 
20040 



rem **--convert to fractlon- 
f = m - int(m/10) * 10 
m = int(iii/10) 

f = then f$ = "" 

then f$ = "1/8" 
then f$ = "1/4" 
then f$ 



if 
if 
if 

if 



if f 
if f 



if 
if 



"3/8" 
then f$ = "1/2" 



then f$ 

then f $ 



'5/8" 
"3/4' 



then f$ = "7/8" 



return 



rem ** — y/n input routine--** 
print "Type a " ; wh t $ ; "Y " ; y 1 w$ ; " or 
poke 19,32:rein disable input ? 
input yes$ 



;wht$;"N";ylw$; 



t 








"y 


" or 


"n 


" or 




I n c 



yes$ 
yes$ 



If Y ' 
"N' 



if y es$ = 
if yes$ = 
print 

print TV si 
print 

goto 18000:reiii check again 



then 
then 



yes$ 
yes$ 



y : return 
'n" : return 



correct Choice! ";ylw$ 



;wht$ ; "RETURN" ; ylwj 
c Ir kbrd buffer 
640 
value 



rem ** --return key routine- 
print 

print "Press " 
poke 198,0: rem 
for i = 631 to 
poke i , : rem no 
next i 

X = peek ( 1 9 7 ) : r em store key press 
if X = 1 then 19100 
goto 19070:rera if not 1 go 
poke 198,l:rem allow 1 for 
poke 631,0:rera clr kbrd 
nu$ = "":rem clr string variable 
print home$:rera clr/horae 
return 



rem ''"''--strip sign routine-- 

Igth = len(ss$) 

s2$ = right$(ss$ , Igth - 1) 

ss $ = s 2 $ 

return 



to continue: 



back 
cursor 



ready . 
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■ Program for STOCK.D/SPLAY 



100 rem *** — display hi/low data — *** 
110 : 
120 : 

130 rem **--initialization--** 

lAO home$ = chr $ ( 1 4 7 ) : r em clr/home 

150 ::cd$ = chr$( 17):rem cursor down 

160 ::cu$ = c h r $ ( 1 45 ) : r em cursor up 

170 ::cl$ = chr $ ( 1 57 ) : rem cursor left 

180 ::cr$ = chr$( 29):rera cursor right 

190 :blk$ = chr$( 144) : rem black 

200 :ylw$ = chr $ ( 1 58 ) : r em yellow 

210 :wht$ = chr$( 5):rem white 

220 :rvs$ = chr$( 18):rem reverse video 

230 : 

240 poke 53280, 14:rem border = It. blue 
250 poke 53272, 23:rem upper/lower case 
260 poke 53281, 9:rein set bkgrd to brn 
270 I 
280 : 

500 rem **--file input routine--** 

510 open 2 , 8 , 2 , "hi / 1 ow data , seq , read" 

520 for k = 1 to 10 

530 input#2 , stk$(k) 

540 input#2 , hi$(k) 

550 input#2 , low$(k) 

560 next k 

570 close 2 

580 : 

590 : 

1000 rem **--display routine--** 
1010 : 

1020 rem *-titles-* 
1030 print ylw$ 
1040 print home$:rem clr/home 
1050 print "Stock Symbol"; 
1060 print tab(18) "Hi Value"; 
1070 print tab(28) "Low Value" 
1080 print 
1090 : 

1100 rem *-stock name-* 

1110 for k = 1 to 10 

1120 if k < 10 then print tab(l) 

1130 print k;" "; 

1140 print stk$(k) ; 

1150 : 

1160 rem *-high value-* 
1170 m = val(hi$(k)) 

1180 gosub 17000:rem convert to fraction 

1190 hi$(k) = str$(ra) 

1200 print tab(18) 

1210 print hi$(k);" ";f$; 

12 20 : 

1230 rem *-low value-* 
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1240 m = val(low$(k)) 

1250 gosub 17000:rem convert to fraction 

1260 low$(k) = str$(m) 

1270 print tab(28) 

1280 print low$(k) ; " " ; f $ 

1290 : 

1300 next k 

1310 : 

1320 cd = 5:gosub 9000:rem crsr down 5 
1330 gosub 19000:rem return key routine 
1340 : 
1350 : 

2000 rem **--return to main menu--** 
2010 print horae$:rem clr/home 
2020 cd = 5:gosub 9000:rem crsr down 5 
2030 print tab(ll) 

2040 print rvs$;"0NE MOMENT PLEASE!" 

2050 pr i n t : pr i n t : pr in t 

2060 print tab(ll) 

2070 print "LOADING STOCK. MENU" 

2080 ""stock. menu" 

2090 : 

2100 : 

9000 rem **--cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 



17000 






convert to 


f rac 


17010 


f = 


ra 




i n t ( m 


/lO) * 


10 


17020 


m = 


i 


nt ( 


m/10) 






17030 


if 


f 


= 


then 


f$ = 


II IT 


17040 


if 


f 


= 1 


then 


f$ = 


"1/8' 


17050 


if 


f 


= 2 


then 


f$ = 


"1/4' 


17060 


if 


f 


= 3 


then 


f$ = 


"3/8' 


17070 


if 


f 


= 4 


then 


f$ = 


"1/2 


17080 


if 


f 


= 5 


then 


f$ = 


"5/8' 


17090 


if 


f 


= 6 


then 


f$ = 


"3/4' 


17100 


if 


f 


= 7 


then 


f$ = 


"7/8' 



17110 return 

17120 : 

17130 : 

18000 rem **--y/n input routine--** 

18010 print "Type a " ; wh t $ ; " Y" ; y lw$ ; " or " ; wht$ ; "N" ; ylw$ 

18020 poke 19,32: rem disable input ? 

18030 input yes$ 

18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 

18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 

18070 print 

18080 print rvs$ ; "Incorrect Choice !"; ylw$ 

18090 print 

18100 goto 18000:rem check again 

18110 : 
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18120 : 

19000 rem **--return key routine--** 

19010 print 

19020 print "Press "; wht $; "RETURN "; y lw$ 

19030 poke 198,0:rem clr kbrd buffer 

19040 for i = 631 to 640 

19050 poke i,0:rei!i no value 

19060 next i 

19070 X = peek( 197) : rem store key press 

19080 if X = 1 then 19100 

19090 goto 19070:rem if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rera clr kbrd 

19120 nu$ = "":rem clr string variable 

19130 print home$:rera clr/home 

19140 return 
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■ Program for STOCK.DSP HI/LO\N 



100 
110 
120 
130 
140 
1 50 
160 

1 70 
180 
190 
200 

2 1 
2 20 
230 
240 

2 50 
260 
270 
280 
290 
300 
310 
320 
330 
340 

3 50 
360 
370 

3 8 
390 
400 

4 1 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 

5 50 
560 
570 
5 80 
590 
600 
610 
620 



rem 




-display stock 


history--* * * 


rem 




initial ization 






1 o ra e 


$ = 


c h r S ( 14 7) : rem 


c 1 r / h m G 


: : c d 


S = 


c h r $ ( 1 7 ) : r p ra 


cursor 


d \v n 


: : c u 


$ = 


c h r $ ( 14 5) : r e m 


c u r s o r 


up 


: :c] $ = 


rhrS( 1 57) :rem 


cursor 


left 


: : c r 


$ = 


c h r S ( 2 9 ) : r e m 


cursor 


right 


: bl kS = 


chr$(l44):rem 


black 




: yl 


$ = 


c h r $ ( 1 5 8 ) : r e m 


y el low 




: w h t $ = 


c h r $ ( 5 ) : r e m 


white 




: r V s 


$ = 


c h I- $ ( 1 8 ) : r e m 


reverse 


V i d e o 


:) o k e 


532 


80 , 14: rem hot d 


or = 1 ! 


. t) 1 u e 


3oke 


5 32 


7 2 , 2 3 : r c m u p [i e 


r / I o w e t 


c a s e 


3oke 


5 3 2 81, 9 : r e m set 


b k g r d to b r n 


r e m 




V a r i a b 1 e s list 






rem 


St k$ 


= s t o c k s y m b c> 


! 




rem 


h i $ 


= r u r r e n t hi 


price 




rem 


1 w $ 


= c: u r r e n t 1 o v. 


price 




rem 


(1 1 e $ 


= (1 a t e 






rem 


M h S 


^ new li i g h 






rem 


h 1 $ 


= n e low 






rem 


f $ 


= fraction 






r e m 


pe 


= p / e rati o 






r e m 


V o 1 


= sales volume 




r e m 


h 


= daily high 


p r i c e 




r f? ni 


I f) w 


= daily low p r i c e 




rem 


c 


= daily c 1 o s i 


n g price 


rem 


w 


= temp, stock 


# 




rem 


a V 


= average vol 


u m p 




rem 


ap 


= a V e r a g e p r" j 


c e 




rem 


C V 


= closing p r i 


c e w / o 


c n V . 


rem 


c 1 


= 1st close p 


rice 




rem 


c 2 


= last close 


price 




rem 


c d 


= d i f f . bet w e 


en c 1 & 


c 2 


rem 


z2 


= c o mm n v a r . 


c o n v . 




rem 


m 


= common v a r . 


c o n V . 





rem 


pri 


n t 


cd 


= 5 


pr i 


n t 


pri 


n t 


pri 


nt : 


pri 


n t 


pri 


n t : 


print 



home $ 



; r a m title / m s g 
rem c 1 r / h o m e 



tab( 14) 
rvs$ ; "STOCK 
print :print 
tab(12) "One 
print: print 

tab( 8) "Loading Stock 



rem crsr down 5 
HISTORY" 
Momen t P 1 ease ! " 

Information.' 



PLANNING A FILE SYSTEM 353 



630 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 

1110 

1 120 

1 130 

1 140 

1 1 50 

I 160 

I I 70 
1 180 
1 190 

1 2 00 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2 1 u 
2 110 
2 120 
2130 
2140 
2150 
2160 
3000 
3010 
3020 
3030 
3040 
3050 
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rem **--file input routine--** 
rem * -pointer file-* 

open 2, 8, 2, "stock. pointer, seq, read" 

input#2,ptr 

close 2 

rem * -high /low file-* 

open 3 , 8 , 3 , " hi /low da t a , s e q , r ea d " 

for k = 1 to 10 

input#3,stk$(k) 

input#3,hi$(k) 

ra = val(hi$(k) ) 

gosub 17000:rera convert to fraction 
hi$(k) = str$(ra) + " " + f$ 

input#3 , low$ ( k ) 

m = va 1 ( low$ ( k ) ) 

gosub 17000:rem convert to fraction 
low$(k) = str$(m) + " " + f$ 

next k 
close 3 



tb = 10 
print ylw$ 

poke 19,32:rem disable input 



rem ** — display stock names — ** 

rem clr/horae crsr down 3 

print home$:cd = 3:gosub 9000 

print tab(tb) rvs$;"ST0CK HISTORY" 

print: print 

for k = 1 to 10 

if k < 10 then print tab(tb + 1) k;" " ; stk$ ( k ) : goto 2080 
print tab(tb) k ; " ";stk$(k) 
next k 

print tab(tb + 1) "11 Stock Menu" 
pr i n t : pr i n t : pr in t tab(tb) 
input "Which Number? ";w$ 
w = val(w$) 

if w < 1 or w > 11 then 13000:rem incorrect # routine 
if w = 11 then 7000 



rem ** --titles--** 
print home$:rem clr/home 
Igth = len(stk$(w)) 

print tab((40 - lgth)/2) wht$;stk$(w) 

print ylw$ 

print:print 
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3060 print "DATE"; tab(lO) "VOL"; tab(15)"HI"; tab(23) "LOW"; 

tab(31) "CLOSE" 
3070 : 
3080 : 



AOOO 


rem * 


--data file i 


np 


4010 








4020 


C V t $ = 


s t k $ ( w ) 




4 030 


g S U 1) 


14000:rem con 


V e 


4040 


st.k$ = 


cvt$ 




4 5 








4060 


o [) e n 1 


5,8,15: rem op 


en 


4070 


open 


3,8, 3, stk$ + 


M 


4080 


rem 1 


in line 4070 


i s 


4090 


rem 35 


in line 4070 


i 


4100 


c h n 1 $ 


= chr$(3):rem 


c 



data , 1 , " + chr$( 35) 

letter not # 
s rec . length--not # of records 
chnl$ = chr$(3):rem channel # 
4110 : 

4120 for kx = 1 to ptr 

4130 rlov; = kx:rem low byte of rec.# 

4140 rhigh = 0:rem high byte of rec.# 

4150 if rlow > 255 then 15000:rera rec. # routine 

4160 rec$ = chr$(rlow) + chr$(rhigh) 

417 : 

chr$( l):rem position 
3,"p";chnl$;rec$;pztn$ 



;hr$ (ll):rem position 
, "p" ; chnl$ ; rec$ ; pztn$ 



4180 


p z t n 


4190 


pr i n 


4200 


i n p u 


4210 


p r i n 


4220 




4230 


pz t n 


4240 


pr i n 


4250 


i n p u 


4260 




4270 


pz tn 


4280 


p r i n 


4290 


i n pu 


4300 


prin 


4310 




4320 


p z t n 


4330 


prin 


4340 


inpu 


4350 




4360 


m = 


4370 


gosu 


4380 


h = 


4390 


for 


4400 


i f m 


4410 


next 


4420 


prin 


4430 




4440 


p z t n 


4450 


prin 


4460 


inpu 


4470 


4480 


m = 


4490 


gosu 


4500 


low 



$ = chr$ (15):rem position 

t#15,"p";chnl$;rec$;pztn$ 

t#3 , vol$ 

t tab(lO) vol$; 

$ = chr$ (21):rera position 
il$ ; rec$ ; pztn$ 

17000: rem convert to fraction 
= 1 to len(h$) 

l$(h$,z,l) = "*" then nh$ = "*' 
tab(14) h;f$;nh$; 

= c h r $ ( 2 6 ) : r e III position 
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4510 for z = 1 to len(low$) 

4520 if raid$(low$,z,l) = "*" then nl$ = "*" 
4530 next z 

4540 print tab(22) low;f$;nl$; 
4550 : 

4560 pztn$ = chr$ (3I):rcm position 
4570 print#15,"p";chnl$i rec$;pztn$ 
4580 input#3,c$ 
4590 : 

4600 c = val(c$) 

4610 if kx = 1 then cl = c:vl = val(vol$) 
4620 if kx = ptr then c2 = c 
4630 cv = c 
4640 z 2 = c V 

4650 gosub 12000:rera convert to decimal 
4660 cv = z2 
4670 m = c 

4680 gosub 17000:rera convert to fraction 
4690 c = m 

4700 print tab(30) c ; f $ 
4710 : 

4720 nh$ = "":nl$ = "" 
4730 av = av + val(vol$) 
4740 ap = ap + cv 
4750 : 

4760 next kx 
4770 : 
4780 : 

4790 close 3: close 15 

4800 gosub 19000:rem return routine 
4810 : 
4820 : 



5000 


rem * 


'■■--display second 


page--*'- 






5010 


print 


horae$:rem clr/home 






5020 


to = 


5 










5030 


print 


tab( (40 


- lgth)/2) wht$;stk$(w 


) 




5040 


print 


: pr in t y 1 


w$ 








5050 


print 


tab( tc ) 


"Current 


P/E ratio = 




"; pe$ 


5060 


print 












5070 


print 


tab( tc ) 


"Current 


high price = 


II 


; hi$(w) 


5080 


print 












5090 


print 


tab(tc) 


"Current 


low price 


tl 


; 1 ow$ ( w ) 


5100 


print 












5110 














5120 


a V = 


a V / ( k X 


- 1) 








51 30 


av$ = 


s t r $ ( a V ) 










5140 


for q 


= 1 to 1 


en( av$ ) 








51 50 


if mi 


d $ ( av$ , q , 


1) = "." 


then dec = q 






5160 


next 


q 










51 70 


print 


tab( tc ) 


"Average 


volume = 


tt 


; lefts ( av$ , 


5180 


print 












5190 














5200 


ap = 


a p / ( k X 


- 1) 








5210 


a p$ = 


str$(ap) 










5220 


for q 


= 1 to 1 


en(ap$) 








5230 


if mi 


d$(ap$ ,q , 


1) = "." 


then dec = q 
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5240 next q 

5250 print tab(tc) "Average price = " ; 1 e f t $ ( a p$ , d ec + 2) 

5260 : 
5270 print 

5280 print tab(tc) "Last price = ";c;f$ 

5290 z2 = c2 

5300 gosub 12000:rera convert to decimal 
5310 c2 = z2 
5320 : 

5330 z2 = cl 

5340 gosub 12000:rem convert to decimal 
5350 cl = z2 
5360 : 

5370 cd = c2 - cl 

5380 print:print tab(tc) "Price difference" 
5390 print tab(tc) "from 1st record = ";cd 
5400 : 
5410 : 

6000 rem ** — another stock — ** 

6010 gosub 19000:rem return routine 

6020 poke 19,32:rem disable input ? 

6030 av = 0:ap = 

6040 goto 2000:rem start again 

6050 : 

6060 : 

7000 rem **--return to main menu--** 

7010 print home$:rem clr/home 

7020 cd = 5:gosub 9000:rem crsr down 5 

7030 print tab(14) 

7040 print rvs$;"PLEASE WAIT!" 

7050 pr i n t : pr i n t : pr in t 

7060 print tab(ll) 

7070 print "LOADING STOCK. MENU" 

7080 '"stock. menu" 

7090 : 

7100 : 

9000 rem ** — cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

12000 rem **--convert to decimal--** 

12010 z2 = z2 / 10:s3 = int(z2):dc = z2 - s3 

12020 dc = (dc * 10)/ 8:z2 = s3 + dc:z2 = int(z2 * 1000 + ,5) 

/ 1000 
12030 return 
12040 : 
12050 : 

13000 rem **--incor rect number routine--** 
13010 print:print 

13020 print tab(tb) r v s $ ; " I NCORRECT NUMBER!" 
13030 gosub 19000:rem return routine 
13040 goto 2000:rem dsp menu again 
13050 : 
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1 3060 
1 AOOO 
UOlO 
1A020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
15000 
15010 
15020 
15030 
15040 
15050 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
1 6220 
1 6230 
1 7000 
17010 
1 7020 
17030 
17040 
17050 
17060 

358 



rem **--convert to lowercase — ** 
nc$ = "" 

for cv = 1 to len(cvt$) 

X = asc ( mi d $ ( c V t $ , c V , 1 ) ) 

if X > 192 then x = x - 128 

nc$ = nc$ + chr$(x) 

next c V 

cvt$ = nc$ 

f = asc(lGf t$(cvt$, 1) ) 
f = f + 128 

nc$ = chr$(f) + r i gh t $ ( c v t $ , 1 en ( c v t $ ) - 1) 
return 

rem cvt$ = converted to lowercase 
rem nc$ = 1st 1 e t t er /uppe r case 

rem **--figure rec.# routine--** 

rhigh = int ( r low/256) 

rlow = rlow - 256 * rhigh 

return 



rem **--reminder routine — ** 
print home$:rem clr/home 
print tab(8) 

print "***** REMEMBER 

print 

print "You must add the fraction as the last" 
print "digit! 21 5/8 should be entered as: 215" 

print 

print "If the number has no fraction, please" 
print "enter a '0' after the number! 21 even" 
print "should be entered as: 210" 



print 

print tab(ll) "1/8 = 1" 

print tab(ll) "1/4 = 2" 

print tab(ll) "3/8 = 3" 

print tab(ll) "1/2 = 4" 

print tab(ll) "5/8 = 5" 

print tab(ll) "3/4 = 6" 

print tab(ll) "7/8 = 7" 

print tab(ll) "EVEN = 0" 

print 
return 



rem ** --convert to fraction — ** 



f = 


m - int(m/10) 


* 10 


m = 


int(m/10) 




if 


f = then f$ 




if 


f = 1 then f$ 


= "1/8" 


if 


f = 2 then f$ 


= "1/4" 


if 


f = 3 then f$ 


= "3/8" 



CHAPTER TWELVE 



17070 if f = 4 then f$ 
17080 if f = 5 then f$ 
17090 if f = 6 then f$ 
17100 if f = 7 then f$ 
17110 return 
17120 : 
17130 : 

18000 rem ** — y/n input routine — ** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wht$ ; "N" ; y lw$ ; " :"; 
18020 poke 19,32:rera disable input ? 
18030 input yes$ 
18040 print:print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r v s$ ; " I nco r r ec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:rera check again 
18110 : 
18120 : 

19000 rem ** — return key routine--** 
19010 printrprint 

19020 print "Press the "; wht$ ; "RETURN" ; ylw$ ; " key to continue:"; 
19030 poke 198,0:reni clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0:rem no value 
19060 next i 

19070 X = peek ( 1 9 7 ) : r em store key press 

19080 if X = 1 then 19100 

19090 goto 19070:rem if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rem clr kbrd 

19120 nu$ = "":rem clr string variable 

19130 print home$ : rem clr/home 

19140 return 

ready . 



= "1/2" 
= "5/8" 
= "3/4" 
= "7/8" 
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Program for STOCK. CRT HI/LOW 



100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
2 2 f) 
2:30 
24 
2 'iO 
260 
2 70 
2 80 

2 90 
300 

3 1 
3 20 
3 30 
3 4 
330 
3 6 
3 7i) 

3 80 
39 
-t 1 i 

4 1 
420 
4 30 
440 
4 50 
460 
470 
480 

4 90 

5 00 
5 1 
5 20 
5 30 
540 
5 50 
5 60 
570 
1000 
1010 
1020 
1 030 
1 04 



rem * * * 


--correct 


stock 


inf . - 


_ * * * 


rem * * - 


-Initialization 






home$ = 


chr$( 147) 


: rem 


clr/home 


: : cd$ = 


chr$( 17) 


: rem 


cursor 


down 


: : c u $ = 


chr$( 145) 


; rem 


cursor 


up 


: :cl$ = 


chr$( 157) 


: rem 


cursor 


left 


: : c r $ = 


chr$( 29) 


: rem 


cursor 


right 


: b 1 k $ = 


chr$( 144) 


: rem 


black 




:ylw$ = 


chr$( 158) 


: rem 


yellow 




: w h t $ = 


chr$( 5) 


: rem 


white 




: r V s $ = 


chr$( 18) 


: rem 


reverse 


vide 



p o k c 5 3 2 8 , 1 4 : r e m b r d o r = 1 t . b 1 u e 



p k 9 


53 2 


7 2 


23: rem upper/ lower 


poke 


5 3 2 81 


9 : r e m set b k g r d to 


rem 




variables list — * * 


rem 


s t k $ 




stock s y m 1) 1 


r m 


h 1 $ 




current hi price 


I' e ni 


/, w $ 




current low price 


r" e m 


(1 1 e $ 




dale 


r c m 


n h$ 




n e w h i g h 


r e m 


h y. $ 




new 1 ow 


r e ni 


f $ 




fraction 


rem 


po 




p / (' ra t i 


rem 


vol 




sa 1 es vo ! ume 


rem 


h 




daily high price 


r em 


] w 




d L 1 1 1 y low price 


r e m 


c 




daily closing price 


rem 


c r 




corrected figure 


rem 


m 




common v a r . c n v . 


rem 


w 




temp, stock # 


rem 




program title /msg.--* 



print home$:rem clr/home 
cd = 5:gosub 9000:rem crsr down 5 
print tab(lO) 

print rvs$ ; "CORRECT STOCK HISTORY" 
p r i n t : p r i n t : p r i n t : p r i n t 
print tab(12) "One Moment Please!" 
p r i n t : p r i n t : p r i n t : p r i n t 

print tab( 8) "Loading Stock Information. 



rem * * - - f i 1 e input routine--** 
rem * - p o i n t e r file-* 

open 2, 8, 2, "stock. pointer, seq, read" 
input#2,ptr 
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1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1 130 
1140 
1 150 
1 160 
1 1 70 
1 180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 

2190 
2200 
2210 
2220 
3000 
3010 
3020 
3030 
3040 



close 2 

rem * -high/ low file-* 

open 3 , 8 , 3 , " h i / 1 ow data , seq , read" 

for k = 1 to 10 

input#3,stk$(k) 

input#3,hi$(k) 

m = val(hi$(k) ) 

gosub 17000:rem convert to fraction 
hi$(k) = str$(m) + " " + f$ 

input#3 , low$ ( k) 

ra = val( low$(k) ) 

gosub 17 000: rem convert to fraction 
low$(k) = str$(m) + " " + f$ 

next k 
close 3 



tb = 10 

print y 1 w $ 

poke 19,32:rem disable input 



rem - 
rem c 1 
print 
print 
print: 
for k 
if k < 
print 
next k 
print 
print: 
input 
w = va 
if w < 
i f w = 



--display stock names--** 

r/home crsr down 1 

horae$:cd = l:gosub 9000 

tab(tb) rvs$ ; "CORRECT STOCK HISTORY" 

print 

= 1 to 10 

10 then print tab(tb + 3) k; 
tab(tb + 2) k;" ";stk$(k) 



; stk$(k) : goto 2080 



tab(tb + 3) "11 Stock Menu" 
print tab(tb + 3) 
"Which Number? ";w$ 
l(w$) 

I or w > 11 then wr = w:gosub 13000:goto 2000 

II then 7000 



rem cl r/home crsr down 5 
print home$:cd = 5:gosub 9000 

print "Which record for " ; wh t $ ; s tk$ ( w ) ; y 1 w$ ; " (1 to";str$ 
(ptr);")? "; 
input r k 

if rk < 1 or rk > ptr then wr = rk:gosub 13000:goto 2160 



''--data file input--** 



cvt$ = stk$(w) 

gosub 14000:rem convert to I.e. 
stk$ = cvt$ 
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3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 



open 15,8,15:rein open command chnl 

open 3,8,3,stk$ + ".data.l," + chr$(35) 

rem 1 in line 3070 is letter not # 

rem 35 in line 3070 is rec . length--not # of records 
chnl$ = chr$(3):rem channel # 

rlow = rk:reiTi low byte of rec.# 

rhigh = 0:rem high byte of rec.# 

if rlow > 255 then 15000:rem rec. # routine 

rec$ = chr$(rlow) + chr$(rhigh) 



pz t n $ = 


chr$( 


l):rem position 


print#15 


"d" • 
> P » 


chn 1 $ 


j r e c 


^ • n 7 t n 1; 


"T n n 1 1 t JT ^ 


d t e $ 








pz t n $ = 


chr$ 


(11): 


rem 


position 


print#15 


,"p"; 


chnl$ 


; rec 


$ ; pztn$ 


input#3 , 


pe$ 








pztn$ = 


chr$ 


(15): 


rem 


position 


print#15 


" ^ " . 

. p ; 


chnl$ 


; rec 


$ ; pztn$ 


input#3 , 


vol$ 








pztn$ = 


chr$ 


(21): 


rem 


position 


print#15 


,"p"; 


chnl$ 


; rec 


$ ; pztn$ 


in pu t #3 , 


h$ 








pz t n$ = 


chr$ 


(26): 


rem 


position 


print#15 


,"p"; 


chnl$ 


; r ec 


$ ; pztn$ 


in put # 3 , 


low$ 








pztn$ = 


chr$ 


(31): 


rem 


position 


print#15 


,"p"; 


chnl$ 


; r ec 


$ ; pztn$ 


input#3 , 


c$ 









close 3:close 15 

pe = val ( pe $ ) 

vol = val(vol$) 

h = val(h$) 

low = val(low$) 

c = val ( c$ ) 



rem * 
f lag$ 
rem c 
print 
print 
print 
print 
print 
print 
m = h 



'^--correction routine — 

= "off":rem info . unchanged 
Ir/home crsr down 5 

home$:cd = 5:gosub 9000 

stk$(w);"'s data for ";dte$ 
: print 

"1. P/E ratio " ; pe 

"2. Volume ";vol 

:gosub 17000:rem convert to fraction 
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4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 

4260 
4270 
4280 

4290 

4300 

4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 



print "3. High " ; m ; " ";£$ 

m = lowrgosub 17000:rem convert to fraction 

print "4 . Low " ; m; " " ; f $ 

ra = c:gosub 17000:rem convert to fraction 

print "5. Close ";m;" ";f$ 

print 

print "Is this correct? "; 

gosub 18000:rem y/n input routine 

print 

if yes$ = "n" then 4240 

if flag$ = "off" then 2000:rem info not changed & ok 
goto 5000:rem file correction 



input 
if nb 
goto 
if nb 
if nb 
if nb 
rout i 
if nb 
r ou t i 
if nb 
r outi 
print 
print 
if nb 
if nb 
if nb 
if nb 
if nb 
flag$ 
goto 
print 



"Which number is wrong? ":nb 

< 1 or nb > 5 then print:print "INCORRECT CHOICE 
4150 

= 1 then info3 

= 2 then info5 

= 3 then info3 
n e 

= 4 then info$ = "LOW":gosub 16000:rera reminder 



"P/E" 
"VOL" 

"HI":gosub 16000:rem reminder 



5 then info$ = "CLOSE" : gosub 16000:rem reminde 



"The correct ";info$;" figure 
=lthenpe =cr 
= 2 then vol = cr 
= 3 then h = cr 
= 4 then low = cr 
= 5 then c = cr 
= "on":rem info changed 
4020:rem ask again 



;: input cr 



rem * 


* — f ile 


correction- 




rem c 


Ir / home 


crsr down 5 




print 


horae$ : c 


d = 5:gosub 


9000 


print 


tab( 1 1 ) 


rvs$ ; "ONE 


MOMENT PLEASE ! " 


cd = 


7 : gosub 


9000:rem cr 


sr down 7 


print 


tab( 10) 


"Updating 


" ; wht$ ; stk$ ( w) ; " 


cvt$ 


= s t k $ ( w 


) 




gosub 


14000: r 


em convert 


to I.e. 


stk$ 


= c vt $ 







's";ylw3 



f il 



open 15,8,15:rem open command chnl 

open 3,8,3,stk$ + ".data.l," + chr$(35) 

rem 1 in line 5120 is letter not # 

rem 35 in line 5120 is r ec . 1 eng t h--no t # of 

chnl$ = chr$(3):rem channel # 
rlow = rk:rem low byte of rec.# 
rhigh = 0:rem high byte of rec.# 



records 
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5180 if rlow > 255 then 15000:rem rec.# routine 
5190 rec$ = chr$(rlow) + chr$(rhigh) 
5200 : 

5210 pztn$ = chr$( l):rem position 
5220 print#15,"p";chnl$;rec$;pztn$ 
5230 print#3,dte$ 
5240 : 

5250 ss$=str$( pe ) : gosub 20000 : pe$=ss$ 
5260 pztn$ = chr$ (ll):rem position 
5270 print#15,"p";chnl$;rec$;pztn$ 
5280 print#3,pe$ 
5290 : 

5300 ss$=str$(vol) :gosub 20000 : vo 1 $=s s$ 
5310 pztn$ = chr$ (15):rera position 
5320 print#15,"p";chnl$;rec$;pztn$ 
5330 print#3,vol$ 
5340 : 

5350 ss$=str$(h) : gosub 20000:h$=ss$ 
5360 pztn$ = chr$ (21):rem position 
5370 print#15,"p";chnl$;rec$;pztn$ 
5380 print#3,h$ 
5390 : 

5400 ss$=str$( low) : gosub 20000 : low$=s s$ 
5410 pztn$ = chr$ (26):rem position 
5420 print#15,"p";chnl$;rec$;pztn$ 
5430 print#3,low$ 
5440 : 

5450 ss$=str$(c) : gosub 20000:c$=ss$ 
5460 pztn$ = chr$ (31):rera position 
5470 print#15,"p";chnl$;rec$;pztn$ 
5480 print#3,c$ 
5490 : 

5500 close 3:close 15 
5510 : 
5520 : 

6000 rem — another stock — ** 

6010 rem clr/home crsr down 5 

6020 print home$:cd = 5:gosub 9000 

6030 print stk$(w);"'s file has been updated!" 

6040 gosub 19000:rem return routine 

6050 poke 19,32:rem disable input ? 

6060 goto 2000:rem start again 

6070 : 

6080 : 

7000 rem ** --return to main menu — ** 

7010 print home$:rem clr/home 

7020 cd = 5: gosub 9000: rem crsr down 5 

7030 print tab(14) 

7040 print rvs$;"PLEASE WAIT!" 

7050 p r i n t : pr in t : pr i n t 

7060 print tab(ll) 

7070 print "LOADING STOCK. MENU" 

7080 '"stock, menu" 

7090 : 
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7100 
9000 
9010 

9020 
9030 
9040 
9050 
9060 

13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
15000 
15010 
15020 
15030 
15040 
15050 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 



rem ** — cursor down routine — ** 

for i = 1 to cd 

print cd$; 

next i 

return 



rem ** — incorrect number routine--** 

wr$ = str$(wr) 

zw = len(wr$) 

rem clr/home crsr down 5 

print home$:cd = 5:gosub 9000 

print r i gh t $ ( wr $ , zw - 1);" is not a valid choice, 
print 

print"Please try again!" 
gosub 19000:rem return routine 
return 



rem ** — convert to lowercase--** 
nc$ = "" 

for cv = 1 to len(cvt$) 
X = a sc ( mi d $ ( c V t $ , c V , 1 ) ) 
if X > 192 then x = x - 128 
nc$ = nc$ + chr$(x) 
next c V 

cvt$ = nc$ 

f = asc ( lef t$ ( c vt$ , 1 ) ) 
f = f + 128 

nc$ = chr$(f) + r i gh t $ ( c v t $ , 1 e n ( c v t $ ) - 1) 
return 

rem cvt$ = converted to lowercase 
rem nc$ = 1st 1 e t ter /u ppe r ca se 

rem ** — figure rec.# routine--** 

rhigh = i n t ( r 1 ow/ 2 56 ) 

rlow = rlow - 256 * rhigh 

return 



rem ** --reminder routine--** 

print home$:rem clr/home 

print tab(8) 

print "***** REMEMBER *=;=***" 

print 

print "You must add the fraction as the last" 

print "digit! 21 5/8 should be entered as: 215" 
print 

print "If the number has no fraction, please" 

print "enter a '0' after the number! 21 even" 
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16100 print "should be entered as: 210" 



16110 print 

16120 print tab(ll) "1/8 = 1" 

16130 print tab(ll) "1/4 = 2" 

16140 print tab(ll) "3/8 = 3" 

16150 print tab(ll) "1/2 = 4" 

16160 print tab(ll) "5/8 5" 

16170 print tab(ll) "3/4 = 6" 

16180 print tab(ll) "7/8 = 7" 

16190 print tab(ll) "EVEN = 0" 

16200 print 
16210 return 
16220 : 
16230 : 



17000 rem ** — convert to fraction--** 
17010 f = m - int(m/10) * 10 
17020 m = int(m/10) 



17030 


if 


f 


= 


then 


f$ = 


Tt tt 


17040 


if 


f 


= 1 


then 


f$ = 


"1/8 


17050 


if 


f 


= 2 


then 


f$ = 


"1/4 


17060 


if 


f 


= 3 


then 


f$ = 


"3/8 


17070 


if 


f 


= 4 


then 


f$ = 


"1/2 


17080 


if 


f 


= 5 


then 


f$ = 


"5/8 


17090 


if 


f 


= 6 


then 


f$ - 


"3/4 


17100 


if 


f 


= 7 


then 


f$ = 


"7/8 



17110 return 
17120 : 
17130 : 

18000 rem ** — y/n input routine — ** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wht$ ; "N" ; ylw$ ; " :"; 
18020 poke 19,32:reiii disable input ? 
18030 input yes$ 
18040 print:print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print rvs$ ; "Incorrect Choice !"; ylw$ 
18090 print 

18100 goto 18000:rem check again 
18110 : 
18120 : 

19000 rem **--return key routine — ** 
19010 print:print 

19020 print "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue:"; 
19030 poke 198,0:rem clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0:rem no value 
19060 next i 

19070 X = peek ( 1 97 ) : r em store key press 

19080 if X = 1 then 19100 

19090 goto 19070:rem if not 1 go back 

19100 poke 198,l:reni allow 1 for cursor 

19110 poke 631,0:rem clr kbrd 

19120 nu$ = "":rem clr string variable 

19130 print home$:rera clr/home 
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19140 return 
19150 : 
19160 : 

20000 rem ** — strip sign routine--** 

20010 Igth = len(ss$) 

20020 s2$ = right$(ss$ , Igth - 1) 

20030 ss$ = s2$ 

20040 return 

ready . 
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■ Program for STOCK.CORRECT 



100 rem *** — translate stock info. — *** 
110 : 
120 : 



130 


rem ** 




-initialization 


1 ** 




140 


home$ 




chr$(U7) ; 


; rem 


clr/home 


150 


: : cd$ 




chr$( 17); 


; rem 


cursor 


down 


160 


: : c u $ 




chr$( 145) ; 


: rem 


cursor 


up 


170 


: : cl$ 




chr$( 157) ; 


: rem 


cursor 


left 


180 


: : cr$ 




chr$( 29); 


: r em 


cursor 


right 


190 


: blk$ 




chr$( 144) ; 


; rem 


black 




200 


: ylw$ 




chr$( 158) ; 


; r em 


ye 1 low 




210 


: wht$ 




chr$( 5); 


; rem 


white 




220 


: r vs$ 




chr$( 18); 


; r em 


reverse 


video 



2 30 : 

240 poke 53280, 14:rem border = It. blue 
250 poke 53272, 23:rem upper/lower case 
260 poke 53281, 9:rem set bkgrd to brn 
270 : 
280 : 



290 


rem 


**--variables list--** 


300 


rem 


stk$ 




stock symbol 


310 


rem 


hi$ 




current hi price 


320 


rem 


zow$ 




current low price 


330 


rem 


dte$ 




date 


340 


rem 


nh$ 




new high 


350 


rem 


hz$ 




new low 


360 


rem 


f$ 




fraction 


370 


rem 


pe 




p/ e ratio 


380 


rem 


voz 




sales volume 


390 


rem 


h 




daily high price 


400 


rem 


zow 




daily low price 


410 


rem 


c 




daily closing price 


420 


rem 


or 




corrected figure 


430 


rem 


m 




common var. conv. 


440 


rem 


w 




temp, stock # 


450 


rem 


r low 




low byte of rec.# 


460 


rem 


r high 




high byte of rec.# 


470 


rem 


file 




file # in open crand 


480 


rem 


d vie 




device # in open crand 


490 


rem 


cmnd 




command # in open cmnd 


500 


rem 


ptr 




pointer for # of reed's 


510 


rem 


chnl$ 




channel # in open cmnd 


520 


rem 


r ec$ 




rec.# from rlow & rhigh 


530 


rem 


pztn$ 




position within record 



540 : 
550 : 



560 rem **--program title /msg. — ** 
570 print home$:rem clr/home 
580 cd = 5 : gosub . 9000 : r em crsr down 5 
590 print tab(lO) 

600 print rvs$ ; "TRANSLATE STOCK HISTORY" 

610 print:print:print:print 

620 print tab(12) "One Moment Please!" 
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630 print : print : print : print 

640 print tab( 8) "Loading Stock Information." 
650 : 
660 : 

1000 rem '^*--file input routine--** 
1010 : 

1020 rem * -pointer file-* 

1030 open 2 , 8 , 2 , "stock . pointer , seq , read" 

1040 input#2,ptr 

1050 close 2 

1060 : 

1070 rem * -high/low file-* 

1080 open 3 , 8 , 3 , " h i / low data , seq , read" 

1090 for k = 1 to 10 

1100 input#3,stk$(k) 

1110 input#3,hi$(k) 

1120 : 

1130 z2 = val(hi$(k) ) 

1140 gosub 12000:rem convert to decimal 
1150 hi(k) = z2 
1160 : 

1170 input#3,zow$(k) 
1180 : 

1190 z2 = val(zow$(k)) 

1200 gosub 12000:rem convert to decimal 

1210 zow(k) = z2 

1220 : 

1230 next k 

1240 close 3 

1250 : 

1260 : 

1270 tb = 10 
1280 print ylw$ 

1290 poke 19,32: rem disable input ? 
1300 : 
1310 : 

2000 rem **--display stock names--** 
2010 rem clr/horae crsr down 1 
2020 print horae$:cd = l:gosub 9000 

2030 print tab(tb) rvs$ ; "TRANSLATE STOCK HISTORY" 

2040 print:print 
2050 for k = 1 to 10 

2060 if k < 10 then print tab(tb + 3) k;" " ; stk$ ( k) : goto 2080 
2070 print tab(tb + 2) k;" ";stk$(k) 
2080 next k 

2090 print tab(tb + 3) "11 Stock Menu" 
2100 print:print tab(tb + 3) 
2110 input "Which Number? ";w$ 
2120 w = val(w$) 

2130 if w < 1 or w > 11 then wr = w:gosub 13000:goto 2000 
2140 if w = 11 then 7000 
2150 : 
2160 : 

3000 rem **--dif file setup--** 
3010 : 

3020 rem clr/home crsr down 5 
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3030 print home$:cd = 5:gosub 9000 
30A0 print tab(5) rvs$; 

3050 print "DIF TRANSLATION IN PROGRESS." 

3060 pr int : print : print 

3070 print tab(8) rvs$; 

3080 print "PLEASE DO NOT TOUCH!!" 

3090 : 

3100 cvL$ = stk$(w) 

3110 gosub 14000:rem convert to I.e. 
3120 stk$ = cvt$ 
3130 : 

3140 open 15,8,15:rem open command chnl 

3150 open 3,8,3,stk$ + ".data.l," + chr$(35) 

3160 rem 1 in line 3150 is letter not # 

3170 rem 35 in line 3150 is rec. length — not # of records 

3180 chnl$ = chr$(3):rem channel # 

3190 rem nv = number of vectors 

3200 rem nt = number of tuples 

3210 nv = 8: nt = ptr + 1 

3220 q$ = chr$(34):rem quote mark 

3230 open 2,8,2,stk$ + " . di f , se q , wr i t e" 

3240 : 

3250 : 

4000 rem *-header section-* 
4010 : 



4020 


pr 


int#2, 


, "TABLE" 


4030 


pr 


int#2 , 


,"0,1" 


4040 


pr 


int#2, 


,q$q$ 


4050 








4060 


pr 


int#2 , 


, "VECTORS" 


4070 


pr 


int#2, 


,"0,";nv 


4080 


pr 


int#2, 


, q$q$ 


4090 








4100 


pr 


int#2, 


, "TUPLES" 


4110 


pr 


int#2. 


. , ; nt 


4120 


pr 


int#2, 


,q$q$ 


4130 








4140 


pr 


int#2 , 


, "DATA" 


4150 


pr 


int#2, 


,"0,0" 


4160 


pr 


int#2, 


,q$q$ 


4170 








4180 








5000 


rem *-data section-* 


5010 








5020 


pr 


int#2 , 


,"-1,0" 


5030 


pr 


int#2, 


, "BOX" 


5040 








5050 


pr 


int#2, 


,"1,0" 


5060 


pr 


int#2, 


, stk$(w) 


5070 








5080 


pr 


int#2, 


,"1,0" 


5090 


pr 


int#2 , 


,"52 WK.HI" 


5100 








5110 


pr 


int#2, 


, "1 ,0" 


5120 


pr 


int#2, 


!"52 WK.LOW" 



5130 : 
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5140 


print#2 


"-1,0" 


5150 


pr in t # 2 


"BOT" 


5160 






5170 


print#2 


"1,0" 


5180 


pr int#2 


IT tt 


5190 






5200 


print#2 


"0,";hi(w) 


5210 


pr in t # 2 


"V" 


5220 






5230 


print#2 


"0,";zow(w) 


5240 


pr int#2 


"V" 


5250 


: 




5260 


print#2 


"-1,0" 


5270 


print#2 


"BOT" 


5280 


: 




5290 


print#2 


"1,0" 


5300 


pr int#2 


q$"DATE"q$ 


5310 


: 




5320 


pr int#2 


"1,0" 


5330 


print#2 


q$"P/E"q$ 


5340 


: 




5350 


pr int#2 


"1,0" 


5360 


pr int# 2 


q$"V0L."q$ 


5370 






5380 


pr int#2 


"1,0" 


5390 


print#2 


q$"HI"q$ 


5400 


: 




5410 


pr In t # 2 


"1,0" 


5420 


pr int#2 


q$"L0W"q$ 


5430 






5440 


print#2 


"1,0" 


5450 


pr in t # 2 


q$"CL0SE"q$ 


5460 




5470 


pr int#2 


"1 ,0" 


5480 


print#2 


q$"52 WK.HI" 


5490 






5500 


pr int# 2 


"1,0" 


5510 


pr in t # 2 


q$"52 WK.LOW 



5520 : 
5530 : 

6000 rem **--r ead /wr i t e data--** 
6010 for rk = 1 to ptr 

6020 rlow = rk:rem low byte of rec.# 

6030 rhigh = 0:rein high byte of rec.# 

6040 if rlow > 255 then 15000:rein rec. # routine 

6050 rec$ = chr$(rlow) + chr$(rhigh) 

6060 : 

6070 pztn$ = chr$( l):rem position 
6080 print # 15, "p";chnl$;rec$;pztn$ 
6090 input#3,dte$ 
6100 : 

6110 pztn$ = chr$ (ll):rem position 
6120 print#15,"p";chnl$;rec$;pztn$ 
6130 input#3,pe$ 
6140 : 

6150 pztn$ = chr$ (15):rem position 
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6160 print#15,"p";chnl$;rec$;pztn$ 
6170 input#3,voz$ 
6180 : 

6190 pztn$ = chr$ (21):rem position 
6200 print#15,"p";chnl$;rec$;pztn$ 
6210 input#3,h$ 
6220 : 

6230 pztn$ = chr$ (26):rem position 
6240 print#15,"p";chnl$;rec$;pztn$ 
6250 input#3,zow$ 
6260 : 

6270 pztn$ = chr$ (31):reni position 
6280 print#15,"p";chnl$;rec$;pztn$ 
6290 input#3,c$ 
6300 : 

6310 pe = val(pe$) 
6320 voz = val(voz$) 
6330 h = val(h$) 
6340 zow = val(zow$) 
6350 c = val(c$) 
6360 : 

6370 print#2,"-l,0" 
6380 print#2,"B0T" 
6390 : 

6400 print#2,"l ,0" 
6410 print#2,dte$ 
6420 : 

6430 print#2,"0,";pe 
6440 print#2,"V" 
6450 : 

6460 print#2,"0,";voz 
6470 print#2,"V" 
6480 : 
6490 z2 = h 

6500 gosub 12000:rem convert to decimal 
6510 h = z2 
6520 : 

6530 print#2,"0,";h 
6540 print#2,"V" 
6550 : 

6560 z2 = zow 

6570 gosub 12000:reiii convert to decimal 
6580 zow = z2 
6590 : 

6600 pr int#2 , "0 , " ; zow 
6610 print#2,"V" 
6620 : 
6630 z2 = c 

6640 gosub 12000:rem convert to decimal 

6650 c = z2 
6660 : 

6670 print#2,"0,";c 
6680 print#2,"V" 
6690 : 

6700 next rk 
6710 : 
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6720 rem *-all finished-* 
6730 : 

6740 print#2,"-l,0" 
6750 print#2,"E0D" 

6760 : 

6770 close 2 

6780 close 3:close 15 

6790 : 

6800 print home$:cd = 5:gosub 9000 
6810 print tab(lA) "ALL FINISHED" 
6820 print:print 
6830 print tab(8) 

6840 rem print "Insert Program Diskette!" 
6850 print. "printcprint 

6860 print tab(8) "Press "; wht$ ; "RETURN" ; ylw$ ; " to continue: " 
6870 gosub 19030:rem return routine 
6880 : 

6890 rem *-another stock-* 

6900 poke 19,32:rem disable input ? 

6910 goto 2000:rem start again 

6920 : 

6930 : 

7000 rem **--return to main menu--** 

7010 print home$:rera clr/home 

7020 cd = 5:gosub 9000:rem crsr down 5 

7030 print tab(14) 

7040 print rvs$;"PLEASE WAIT!" 

7050 pr in t : pr in t : pr in t 

7060 print tab(ll) 

7070 print "LOADING STOCK. MENU" 

7080 ""stock. menu" 

7090 : 

7100 : 

9000 rem **--cursor down routine--** 

9010 for i = 1 to cd 

9020 print cd$; 

9030 next i 

9040 return 

9050 : 

9060 : 

12000 rem **--convert to decimal--** 

12010 z2 = z2 / 10:s3 = int(z2):dc = z2 - s3 

12020 dc = (dc * 10)/ 8:z2 = s3 + dc:z2 = int(z2 * 1000 + .5) 

/ 1000 
12030 return 
12040 : 
12050 : 

13000 rem **--i nc or r ec t number routine--** 

13010 wr$ = str$(wr) 

13020 zw = len(wr$) 

13030 rem clr/home crsr down 5 

13040 print home$:cd = 5:gosub 9000 

13050 print r i gh t $ ( wr $ , zw - 1);" is not a valid choice." 

13060 print 

13070 print"Please try again!" 
13080 gosub 19000:rem return routine 
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13090 
13100 
13110 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
15000 
15010 
15020 
15030 
15040 
15050 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 



return 



rem '^*--convert to lowercase--** 
nc$ = "" 

for cv = I to len(cvt$) 
X = a sc ( mi d $ ( c V t $ , c V , 1 ) ) 
if X > 192 then x = x - 128 
nc$ = nc$ + chr$(x) 
next cv 

cvt$ = nc$ 

f = asc( lef t$(cvt$ , 1 ) ) 
f = f + 128 

nc$ = chr$(f) + r igh t $ ( c v t $ , 1 e n ( c v t $ ) - 1) 
return 

rem cvt$ = converted to lowercase 
rem nc$ = 1st letter /upper case 



rem * 


* --figure 


rhigh 


= int(rl 


r 1 ow 


= rlow - 


return 


rem * 


-''--return 


print 


: print 


print 


"Press " 


poke 


198,0:rem 


for i 


= 631 to 



256 * rhigh 



v(ht$ ; "RETURN" ; ylw$ ; " to continue; 



poke i,0:rem no value 

next i 

x = peek( 1 9 7 ) : r em store key press 

if x = 1 then 19100 

goto 19070: rem if not 1 go back 

poke 198,I:rem allow 1 for cursor 

poke 631,0:rem clr kbrd 

nu$ = "":rem clr string variable 

print home$:rem clr/home 

return 



ready . 
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100 

no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 



*** — correct hi/low data--*** 



rem **- 

home$ = 

: :cd$ = 

: : cu$ = 

: :cl$ = 

: : cr $ = 

:blk$ = 

:ylw$ = 

:wht$ = 

:rvs$ = 



Ltialization — ** 



chr$(147) 
chr$( 17) 
chr$(145) 
chr$(157) 
chr$( 29) 
chr$(144) 
chr$(158) 
chr$( 5) 
chr$( 18) 



;rem clr/home 
:rera cursor down 
: rem cursor up 
;rem cursor left 
;rem cursor right 
; rem black 
: rem yellow 
: rem white 
: rem reverse video 



poke 53280, 14:rem border - It. blue 
poke 532 7 2 , 2 3 : rem upper/lower case 
poke 53281, 9:rera set bkgrd to brn 



**--program title /msg 
print home$:rera clr/home 
cd = 5:gosub 9000:rem crsr 
print tab(lO) 

rvs$;"C0RRECT HI/LOW 
print:print:print 
tab(ll) "One Moment Please!" 
print:print: print 

tab( 7) "Loading Stock Information." 



rem 



print 
print 
print 
print 
print 



down 5 
INFO." 



tb = 10 
print ylw$ 
f la 



= "off":rem info unchanged 



rem **--file input routine--** 

open 2 , 8 , 2 , "hi/low data , seq , read" 

for k = 1 to 10 

input#2 , stk$( k) 

input#2,hi$(k) 

input#2 , low$( k) 

next k 

close 2 



rem **--hi/low correct menu--** 

poke 19,32:rem disable input ? 

rem clr/home crsr down 3 

print home$:cd = 3:gosub 9000 

print tab(tb) r vs$ ; "CORRECT HI/LOW INFO." 

printtprint 

print tab(tb - 3) "1. Display HI/LOW Information" 
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w 


< 


1 


or w > 3 then wr 


= w:gosub 13000:goto 560 


w 




1 


then 1000 




w 




2 


then 2000 




w 




3 


and flag$ = "off" 


then 7000 


w 




3 


and flag$ = "on" 


then 4000 



630 print 

640 print tab(tb - 3) "2. Correct HI/LOW Information" 
650 print 

660 print tab(tb - 3) "3. Return to Main Stock Menu" 
670 print:print tab(tb - 3) 
680 input "Which Number? ";w$ 
690 w = val(w$) 
700 if 
710 if 
720 if 
730 if 
740 if 
7 50 : 
760 : 

1000 rem ** — display routine--** 
1010 : 

1020 rem *-titles-* 
1030 print ylw$ 
1040 print home$:rem clr/horae 
1050 print "Stock Symbol"; 
1060 print tab(18) "Hi Value"; 
1070 print tab(28) "Low Value" 
1080 print 
1090 : 

1100 rem *-stock name-* 

1110 for k = 1 to 10 

1120 if k < 10 then print tab(l) 

1130 print k;" "; 

1140 print stk$(k) ; 

1150 : 

1160 rem *-high value-* 
1170 m = val(hi$(k) ) 

1180 gosub 17000:rera convert to fraction 

1190 print tab(18) 

1200 print str$(m) ;" ";f$; 

1210 : 

1220 rem *-low value-* 
1230 m = val(low$(k) ) 

1240 gosub 17000:rem convert to fraction 

1250 print tab(28) 

1260 print str$(m) ;" ";f$ 

1270 : 

1280 next k 

1290 : 

1300 cd = 5:gosub 9000:rem crsr down 5 
1310 gosub 19000:rem return routine 
1320 goto 560 
1330 : 
1340 : 

2000 rem **--display stock names--** 

2010 rem clr/home crsr down 1 

2020 print horae$:cd = l:gosub 9000 

2030 print tab(tb) rvs$ ; "CORRECT STOCK HISTORY" 

2040 printrprint 

2050 for k = 1 to 10 

2060 if k < 10 then print tab(tb + 3) k;" " ; s t k$ ( k ) : go t o 2080 
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2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2 150 
2160 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 



3210 



3220 



3230 
3240 
3250 
3260 
3270 
3280 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 

7000 



print tab(tb + 2) k;" ";stk$(k) 
next k 

print tab(tb + 3) "11 Menu" 
print:print tab(tb + 3) 
input "Which Number? ";w$ 
w = val(w$) 

if w < 1 or w > 11 then wr = w:gosub 13000:goto 2000 
if w = 11 then 560 



rem - -correction routine — 
flag$ = "off":rera info unchanged 
rem clr/horae crsr down 5 
print home$:cd = 5:gosub 9000 
print 

print "1. ";stk$(w) 
print 

m = val ( hi$ (w) ) : gosub 17000:rern convert to fraction 

print "2. Hi value = ";m;" ";f$ 

print 

in = val(low$(w)):gosub 17000: rem convert to fraction 

print "3. Low value = ";m;" ";f$ 

print 

print "Is this correct? "; 

gosub 18000:rem y/n input routine 

print 

if yes$ = "n" then 3180 

goto 2000:rera another stock 

input "Which number is wrong? ";nb 

print 

if nb = 1 then input "Correct stock name or symbol: ' 
stk$(w) 

if nb = 2 then gosub 16000:input "Correct hi value; ' 
hi$(w) 

if nb = 3 then gosub 16000:input "Correct low value: 
low$(w) 

if nb < 1 or nb > 3 then print "INCORRECT CHOICE!" 
flag$ = "on":rem info changed 
goto 3020:rem ask again 
print 



rem ** — file output routine--** 

rem *-hi/low data file-* 

open 3 , 8 , 3 , "@0: hi/low da t a , seq , wr i te" 

for k = 1 to 10 

print#3, stk$(k) 

print#3, hi$(k) 

print#3, low$(k) 

next k 

close 3 



-return to main menu---'^* 
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7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

16000 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

16190 

16200 

16210 

16220 

16230 

17000 

17010 

17020 



print home$:rem clr/horae 

cd = 5:gosub 9000:rem crsr down 5 

print tab(ll) 

print rvs$;"ONE MOMENT PLEASE!" 
print : print : print 
print tab(ll) 

print "LOADING STOCK. MENU" 
* " s t ock . menu" 



rem **--cursor down routine- 
for i = 1 to cd 
print cd$; 
next i 
return 



rem ** --incorrect number routine — ** 

wr$ = str$(wr) 

zw = len(wr$) 

rem clr/horae crsr down 5 

print home$:cd = 5:gosub 9000 

print r i ght $ ( wr $ , zw - 1);" is not a valid choice." 
print 

print"Please try again!" 
gosub 19000:rem return routine 
return 



--rer.inder routine--** 
home$:rem clr/horae 
tab(8) 

"***** REMEMBER 

"You must add the fraction as the last" 
"digit! 21 5/8 should be entered as: 215" 

"If the number has no fraction, please" 
"enter a '0' after the number! 21 even" 
"should be entered as: 210" 



rem ** 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

return 



rem 
f = ra 
ra = int(m/10) 



tab(l 1) 


"1/8 




1" 


tab(l 1) 


"1/4 




2" 


tab(ll) 


"3/8 




3" 


tab( 1 1) 


"1/2 




4" 


tab( 11) 


"5/8 




5" 


tab(ll) 


"3/4 




6" 


tab( 11) 


"7/8 




7" 


tab(ll) 


"EVEN 




0" 


--C on ve 


rt to fraction- 






- i n t ( m 


/lO) * 10 
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17030 


if 


f 


= 


then 


f$ = 


"" 


170A0 


if 


f 


= 1 


then 


f$ = 


"1/8 


17050 


if 


f 


= 2 


then 


f$ = 


"1/4 


17060 


if 


f 


= 3 


then 


f$ = 


"3/8 


17070 


if 


f 


= k 


then 


f$ = 


"1/2 


17080 


if 


f 


= 5 


then 


f$ = 


"5/8 


17090 


if 


f 


= 6 


then 


f$ = 


"3/4 


17100 


if 


f 


= 7 


then 


f$ = 


"7/8 



17110 return 
17120 : 
17130 : 



18000 rem **--y/n input routine--** 

18010 print "Type a " ; wht$ ; "Y" ; ylw$ ; " or " ; wht $ ; "N" ; y lw$ ; " :"; 
18020 poke 19,32:reni disable input ? 
18030 input yes$ 
18040 print 

18050 if yes$ = "y" or yes$ = "Y" then yes$ = "y":return 
18060 if yes$ = "n" or yes$ = "N" then yes$ = "n":return 
18070 print 

18080 print r v s$ ; " I nco r r ec t Choice !"; ylw$ 
18090 print 

18100 goto 18000:rera check again 
18110 : 
18120 : 

19000 rem ** — return key routine--** 
19010 print 

19020 print "Press "; wht $; "RETURN "; ylw$ ; " to continue:"; 
19030 poke 198,0:rem clr kbrd buffer 
19040 for i = 631 to 640 
19050 poke i,0:rera no value 

19060 next i 

19070 X = pe e k ( 1 9 7 ) : r em store key press 

19080 if X = 1 then 19100 

19090 goto 19070:rem if not 1 go back 

19100 poke 198,l:rem allow 1 for cursor 

19110 poke 631,0:rera clr kbrd 

19120 nu$ = "":rera clr string variable 

19130 print home$:rem clr/home 

19140 return 

ready. 
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Appendix A 



CHECKSUM 



I developed the following "checksum" program to help readers know if the programs 
they have entered have been typed in correctly. The checksum program generates 
cumulative values at specified points within each program. Theoretically, the user 
should be able to match his/her values with the values published for each program. 
If the values do not match, then the typist knows that the program has not been 
entered exactly as given in the book. The location of the incorrect values should 
give a clue as to the general location of the typing error(s). The process should 
work something like this: 

1. Type in some program published in the book. 

2. Save the program out to diskette or tape. 

3. Type "new" and then load the program back into the computer. (This step is 
taken only as a precaution against a number of possible problems.) 

4. Type: 

poke 43,peek(45) 
poke 44,peek(46) 

5. Load in the "checksum" program: 
/checksum 

6. Add the last line number of the program to be checked as a new line number 
for the "checksum" program and as a part of a data statement for that new 
instruction. For example, if the last line number in the program you are checking 
is 19150, you type: 19150 data 19150,0,0. If the last line number you entered 
was 770, then you type: 770 data 770,0,0 

Once this step is done correctly, run the checksum program and observe the 
values generated and displayed on the screen. If the screen values match the printed 
values, you can be fairly certain that you have entered the program correctly. If 
the screen values do not match the printed values, then something has been entered 
that does not match exactly with the printed listing. (Notice that I did not say that 
some error had been entered.) It is quite possible to not match the checksum values 
yet have a correctly operating program by making changes at some noncritical 
point(s). 

■ Limitations 

There are four basic limitations to use of this checksum program: 
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1. For some people, the process involved may prove too awkward to be useful. 
If the procedure outlined above is not fohowed exactly, the program will not 
work correctly and may generate incorrect values. 

2. The checksum program will check to see that everything is included. In order 
to match the printed values, you must enter programs EXACTLY as given in 
the book — spaces, rem, etc. Everything must be exactly as shown in the book. 
One missing space somewhere near the beginning of the program would throw 
all the generated values off. 

3. It is possible for all the values to match yet the program might not work. The 
checksum program will not catch transposed characters. For example, an in- 
struction line containing "pimt" has the same characters as "print", and the 
checksum values for these two words would be the same. But the program 
containing "pimt" would not work until the characters "i" and "r" were turned 
around. 

4. If the program to be checked has line numbers below 100, Step 6 above needs 
to be changed. Instead of entering the last line number as a part of the checksum 
program, enter all lines you want checked as data statements with line numbers 
from 90 to 99. For example: 90 data 10, 20, 30; 92 data 40,0,0 

For these reasons, I am not certain how useful the checksum values will be. 
On the hope that some readers might find it easier to locate typing errors, I decided 
to include these values and the checksum program. Please be certain that you enter 
the checksum program correctly. Good luck! 
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■ Program for Checksum 



10 rem * * * — checksum — * * * 
1 1 : 

12 : 

13 rem ** — information — ** 

14 input "program name ";file$ 

15 print chr$(147) 

16 print tab(12) file$ 

17 print chr$(10) 

18 print chr$(10) 

19 print tab(3) "Line #"; 

20 print t a b ( 20 ) "Check sum" 

21 print chr$(10) 

22 : 

23 : 

24 rem ** — main loop — ** 

25 X = peek(44)*256 + peek(43) 

26 read number 

27 for i = 2048 to x - 1 

28 z = peek(i) 

29 t = t + z 

30 if z = then 45 

31 next i 

32 : 

33 : 

34 rem ** — all finished--** 

35 print t 

36 poke x , 

37 poke X + 1,0 

38 poke 43,1 

39 poke 44,8 

40 close 4 

41 end 

42 : 

43 : 

44 rem **--zero subroutine — 

45 lo = peek ( i + 1 ) 

46 ho = peek(i + 2) 

47 if i + 3 > x -1 then 50 

48 11 = peek(i + 3) 

49 hi = peek(i + 4) 

50 i = i + 4 

51 line = hi * 256 + 11 

52 if line = number then 57 

53 If line > number then read number:got,o 52 

54 if flag$ = "on" then print t:flag$ = '"off" 

55 t = t + lo + ho + 11 + hi 

56 goto 31 

57 if flag$ = "on" then print t:flag$ = "off" 

58 t = t + lo + ho + 11 + hi 

59 if line = then print tab(6) line;:goto 63 

60 if line < 1000 then print tab(4) line; 

61 if line > 999 and line < 10000 then print tab(3) line; 

62 if line > 9999 then print tab(2) line; 
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63 print tab(20) 

64 lo = 0:ho = 0:11 = 0:hl = 

65 flag$ = "on" 

66 read number 

67 goto 31 

68 : 

69 : 

70 rem **--data statements--** 
100 data 100 

AOO data 400 
700 data 700 
1000 data 1000 
1500 data 1500 
2000 data 2000 
2500 data 2500 
3000 data 3000 
3500 data 3500 
4000 data 4000 
4500 data 4500 
5000 data 5000 
5500 data 5500 
6000 data 6000 
6500 data 6500 
7000 data 7000 
7500 data 7500 
8000 data 8000 
8500 data 8500 
9000 data 9000 
9500 data 9500 
10000 data 10000 
18000 data 18000 
19000 data 19000 
20000 data 20000 
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Chapter 4 



mail. create 

Line # 



Checksum 



100 
400 
700 
3000 
5000 
8000 
9000 
9040 




1517 

52032 

109895 

148363 

162713 

165854 

187945 

191012 

191012 
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mail.readerl 



Line # 



Checksum 



100 
400 
1000 
5000 
9000 
9040 




1566 

42856 

49872 

56396 

59627 

62410 

62410 



mail.adderl 



Line # 



Checksum 



100 
400 
700 
2000 
3000 
5000 
8000 
9000 
9040 




1482 

83509 

142134 

179895 

196160 

223483 

226495 

248103 

250786 

250786 
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maif.adder2 



Line # 



Checksum 



100 


1483 


400 


83383 


700 


142266 


1000 


180264 


2000 


234798 


3000 


260960 


5000 


276470 


8000 


279331 


9000 


300767 


9040 


303554 





303554 
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mail. menu 

Line # 



Checksum 



100 
700 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
19000 
19110 


Shell 

Line # 



1388 

72831 

108490 

154875 

164756 

176121 

187786 

205864 

231735 

271601 

293323 

299051 

317506 

317506 



Checksum 



100 
8000 
9000 
10000 
18000 
19000 
20000 
20080 




1114 

66710 

85255 

90070 

144881 

167918 

192950 

206793 

206793 
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mail.reader2 



Line 



Checksum 



100 
400 
700 
1000 
2000 
3000 
AOOO 
5000 
6000 
7000 
7500 
8000 
9000 
10000 
18000 
19000 
20000 
20080 




1567 

66329 

129154 

156490 

175714 

206069 

224078 

271545 

325186 

360128 

451365 

515118 

534018 

538750 

594532 

618214 

643214 

657841 

657841 
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mail. correction 



Line # 



100 
400 
1000 
2000 
2500 
3000 
4000 
7000 
9000 
10000 
18000 
19000 
20000 
20080 




Checksum 



1845 

64283 

1 16190 

170464 

251961 

262295 

318301 

338006 

353411 

357996 

413172 

436560 

461536 

479399 

479399 
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mail. menu 

Line # 



Checksum 



100 
700 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
19000 
191 10 




1388 

72831 

108490 

154875 

164756 

176121 

187786 

205864 

231735 

271601 

293323 

299051 

317506 

317506 



mail.create 

Line # 



Checksum 



100 
400 
700 
3000 
5000 
8000 
9000 
9040 




1517 

52032 

109895 

148363 

163511 

182233 

203578 

206337 

206337 



mail.adder2 

Line # 



Checksum 



100 
400 
700 
1000 
2000 
3000 
5000 
8000 
9000 
9040 




1483 

83383 

142266 

180264 

234798 

260960 

277268 

296565 

318275 

320754 

320754 
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mail.reader2 



Line # 



Checksum 



100 
400 
700 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
7500 
8000 
9000 
10000 
18000 
19000 
20000 
20080 




1 567 

66329 

1 291 54 

156490 

175714 

206069 

224078 

271545 

325186 

360128 

451365 

515118 

534018 

538750 

594532 

618214 

643214 

657841 

657841 



mail. correction 

Line # 



Checksum 



100 
400 
1000 
2000 
2500 
3000 
4000 
7000 
9000 
10000 
18000 
19000 
20000 
20080 




1845 

64283 

116190 

1 70464 

251961 

262295 

318301 

338006 

353411 

357996 

413172 

436560 

461536 

479399 

479399 
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■ Chapters 

math. menu 



Line # 



100 
700 
1000 
2000 
3000 
4000 
5000 
6000 
6500 
7000 
8000 
9000 
18000 
19000 
19140 




Checksum 



1395 

64675 

109181 

118345 

129179 

139787 

149913 

159762 

241781 

318096 

334120 

359711 

407170 

429663 

454250 

454250 



math.add 



Line # 



100 
400 
700 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
7000 
9000 
19000 
19110 




Checksum 



1329 

70052 

120224 

146056 

190994 

225689 

239130 

297619 

317277 

330121 

342793 

368016 

373345 

391827 

391827 
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math.subtract 



Line # 



Checksum 



100 
AGO 
700 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
7000 
9000 
19000 
19110 




1590 

70187 

121239 

147371 

192852 

227150 

240735 

299625 

319204 

332192 

345024 

370551 

376008 

3944 11 

39441 1 



math. multiply 



Line # 



Checksum 



100 
400 
700 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
7000 
9000 
19000 
19110 




1817 

70543 

121733 

148217 

193648 

228084 

241723 

300859 

320504 

333546 

346438 

371824 

377329 

395798 

395798 
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math.divide 



Line # 



Checksum 



100 
400 
700 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
7000 
9000 
19000 
19110 




1354 

69367 

119719 

154819 

194134 

231062 

244314 

303897 

323494 

336404 

349716 

374625 

380466 

399142 

399142 



math. scores 

Line # 



Checksum 



100 
400 
700 
6000 
7000 
9000 
10000 
18000 
19000 
19150 




1551 

59788 

107941 

133834 

152241 

177683 

183191 

237923 

260978 

287502 

287502 



create q & a 

Line # 



Checksum 



100 
700 
1000 
9000 
18000 
18100 




1461 

66294 

74584 

87290 

92491 

1 11856 

111856 
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drill & practice 



Line # 



Checksum 



1 00 
400 
700 
1000 
6000 
7000 
9000 
10000 
18000 
19000 
19150 




1813 

58183 

101498 

110924 

126367 

145412 

170715 

176745 

232116 

254869 

281798 

281798 
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scores.dif 

Line # 



Checksum 



100 
400 
1000 
2000 
3000 
5000 
7000 
9000 
9040 




1463 

66157 

89608 

1 10865 

127906 

167513 

181427 

206600 

209539 

209539 



read dif 



Line # 



Checksum 



100 
400 
1000 
5000 
7000 
9000 
9040 




1268 

63810 

89913 

96589 

109368 

134234 

137001 

137001 
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■ Chapter 10 



random example 



Line # 



Checksum 



100 
400 
1000 
1070 




2077 

45090 

82157 

90135 

90135 



medical rec.sys. 

Line # 



Checksum 



100 
400 
700 
1000 
1500 
2000 
2500 
3000 
3500 
4000 
4500 
5000 
6000 
9000 
10000 
18000 
19000 
20000 
20080 




2228 

56353 

115803 

139059 

238936 

326784 

397527 

422434 

509910 

577787 

670275 

681432 

699789 

725833 

731773 

909606 

933388 

958436 

970906 

970906 
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■ Chapter 11 



homeinv.menu 



Line # 



100 
700 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
18000 
19000 
19140 




Checksum 



1634 

68830 

114634 

125170 

136489 

148197 

160386 

171484 

182760 

198731 

224073 

271317 

293701 

318151 

318151 



homeinv.write 



Line 



100 
400 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
9000 
18000 
19000 
19120 




Checksum 



2194 

56554 

74608 

176161 

273463 

340743 

350228 

367330 

381348 

401463 

444282 

467932 

488755 

488755 
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homeinv.read 



Line # Checksum 



100 


2082 


400 


56386 


1000 


7400A 


1500 


138059 


6000 


183423 


9000 


203277 


10000 


208849 


18000 


272562 


19000 


29 5904 


19120 


316718 





316718 



homeinv.search 



Line # Checksum 



100 


2178 


400 


56512 


700 


97490 


1000 


139251 


2000 


172053 


3000 


205286 


3500 


303638 


4000 


366286 


5000 


400214 


6000 


467297 


6500 


548214 


7000 


550555 


9000 


570587 


10000 


576083 


18000 


817237 


19000 


840881 


20000 


864990 


25150 


936205 





936205 
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homeinv.correct 

Line # 



Checksum 



1 00 
400 
700 
1000 
1 500 
2000 
3000 
5000 
6000 
7000 
9000 
18000 
19000 
19120 




2079 

56383 

98442 

122999 

220553 

228407 

304435 

324733 

373290 

426145 

440484 

484180 

507162 

527886 

527886 



homeinv.translate 

Line # 



Checksum 



100 
400 
1000 
1500 
2000 
2 500 
3000 
9000 
19000 
19120 




2016 

56260 

84409 

150698 

153766 

208751 

256893 

276581 

290770 

311479 

311479 



homeinv.copy 



Line # 



Checksum 



100 
400 
1000 
1 500 
2000 
2500 
3000 
9000 
19000 
19120 




1761 

56200 

8431 1 

149936 

153381 

2 22979 

226260 

246335 

260179 

281020 

281020 
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magazine. menu 



Line # 



Checksum 



100 
700 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
18000 
19000 
19140 




1689 

69525 

1 15441 

126247 

137848 

149595 

162090 

173506 

184602 

200749 

226124 

273163 

295500 

319919 

319919 



magazine.write 



Line # 



Checksum 



100 
400 
1000 
1500 
2000 
3000 
4000 
5000 
6000 
9000 
18000 
19000 
19120 




2147 

56507 

77783 

206902 

313941 

385783 

396109 

413825 

427998 

448024 

491734 

514668 

535533 

535533 
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Chapter 12 



stock.menu 

Line # 



Checksum 



100 
700 
1000 
2000 
3000 
AOOO 
5000 
6000 
7000 
8000 
9000 
18000 
19000 
19140 




1486 

73560 

1 18872 

128519 

140382 

152328 

164379 

175613 

187198 

202855 

228425 

275319 

297726 

322475 

322475 



stock.add 



Line # 



Checksum 



100 
400 
1000 
2000 
3000 
4000 
4500 
5000 
6000 
7000 
9000 
18000 
19000 
20000 
20040 




2245 

51019 

80695 

141724 

200146 

212699 

295836 

303604 

314659 

321560 

339336 

437539 

460271 

488338 

493315 

493315 
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stock, real 



Line # 



Checksum 



100 
1000 
1500 
2000 
3000 
4000 
5000 
9000 
18000 
19000 
19140 




2258 

33873 

120219 

138560 

184516 

232862 

251233 

276304 

341085 

363886 

388412 

388412 



stock.display 



Line # 



Checksum 



100 
400 
1000 
2000 
3000 
4000 
4500 
5000 
6000 
7000 
9000 
18000 
19000 
19140 




2302 

51076 

90739 

124318 

151804 

167747 

239504 

279090 

337201 

347409 

365120 

487147 

510226 

535676 

535676 
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stock. dsp hi/low 



Line # 



Checksum 



100 
1000 
2000 
9000 
18000 
19000 
19140 




2066 

42856 

83525 

101668 

127594 

149803 

174378 

174378 



stock.crt hi/low 



Line # 



Checksum 



100 
400 
700 
1000 
2000 
3000 
4000 
7000 
9000 
18000 
19000 
19140 




2062 

51510 

98078 

108753 

146495 

175582 

229792 

242200 

261116 

344074 

366442 

391149 

391149 
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stock.correct 



Line 



Checksum 



100 
400 
1000 
2000 
3000 
3500 
4000 
5000 
5500 
6000 
7000 
9000 
18000 
19000 
20000 
20040 




2080 

50822 

81394 

1 15174 

157084 

223447 

225516 

310900 

395050 

397613 

412439 

430305 

545452 

568663 

596856 

601753 

601753 



stock.trans 



Line # 



Checksum 



100 
400 
1000 
2000 
3000 
4000 
5000 
5500 
6000 
6500 
7000 
9000 
19000 
19140 





2238 

51486 

103257 

134701 

163954 

211183 

227722 

268470 

272892 

333362 

382462 

400130 

465575 

490382 

490382 
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Appendix B 



PROGRAM LIST 



MAILING LIST SYSTEM PROGRAMS 

1. MAIL.MENU (Chapters 6 and 7) 

2. MAIL.CREATE (Chapters 4 and 7) 

3. MAIL.ADDER] (Chapter 5) 

4. MAIL.ADDER2 (Chapters 5 and 7) 

5. MAIL.READER2 (Chapters 6 and 7) 

6. MAIL.CORRECTION (Chapter 7: two programs) 

7. SHELL (Chapter 6) 

II. MATH SYSTEM PROGRAMS 

1. MATH. MENU (Chapter 8) 

2. MATH. ADD (Chapter 8) 

3. MATH. SUBTRACT (Chapter 8) 

4. MATH. MULTIPLY (Chapter 8) 

5. MATH. DIVIDE (Chapter 8) 

6. MATH. SCORES (Chapter 8) 

7. SCORES. DIP (Chapter 9) 

III. DRILL & PRACTICE PROGRAMS 

1. CREATE Q & A (Chapter 8) 

2. DRILL & PRACTICE (Chapter 8) 

IV. DIE PROGRAMS 

1. SCORES. DIP (Chapter 9) 

2. READ. DIE (Chapter 9) 

3. HOMEINV. TRANS (Chapter 11) 

4. STOCK. TRANS (Chapter 12) 

V. MEDICAL RECORDS SYSTEM PROGRAM 

1. MEDICAL REC.SYS. (Chapter 10) 
VI. HOME INVENTORY SYSTEM PROGRAMS 
1. HOMEINV. MENU (Chapter 11) 
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2. HOMEINV . WRITE (Chapter 1 1 ) 

3. HOMEINV . READ (Chapter 1 1 ) 

4. HOMEINV . SEARCH (Chapter 1 1 ) 

5. HOMEINV . CORRECT (Chapter 1 1 ) 

6. HOMEINV.TRANS (Chapter 11) 

7. HOMEINV. COPY (Chapter 11) 

VII. MAGAZINE CATALOG SYSTEM PROGRAMS 

1. MAGAZINE.MENU (Chapter 11) 

2. MAGAZINE.WRITE (Chapter 11) 
VIII. STOCK MARKET SYSTEM PROGRAMS 

1. STOCK.MENU (Chapter 12) 

2. STOCK. ADD (Chapter 12) 

3. STOCK. REAL (Chapter 12) 

4. STOCK. DISPLAY (Chapter 12) 

5. STOCK. DSP HI/LOW (Chapter 12) 

6. STOCK. CRT HI/LOW (Chapter 12) 

7. STOCK.CORRECT (Chapter 12) 

8. STOCK.TRANS (Chapter 12) 
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Appendix C 



KEYBOARD VALUES 



The following is a list of the values obtained by pressing a key and PEEKing at 
location 197: 



IS. Hj 1 


VAT IIP 
V rt ij u rj 


A 

n 


1 n 




2 8 


Q 




u 


1 ft 
1 o 




1 4 


p 


2 1 


Q 


2 6 




2 9 


I 


33 


J 


34 


K 


37 


L 


42 


M 


36 


N 


39 





38 


p 


4 1 





62 


R 


1 7 


s 


1 3 


T 


22 


u 


30 




3 1 


W 


Q 


Y 
A 


L 3 


Y 
1 


L -J 


L 


1 9 
1 z 


\ 


^ 6 


9 
Z 




3 


8 


k 


1 1 


5 


16 


6 


19 


7 


24 


8 


27 


9 


32 





35 




43 


+ 


40 


P 


4 6 




49 




45 




50 




53 
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/ 

Fl 
F3 
F5 
F7 

INST/DEL 
RETURN 

CRSR RIGHT/LEFT 

CRSR UP/DOWN 

CLR/HOME 

UP ARROW 

ENG. POUND 

LEFT ARROW 

RUN 

SPACE BAR 
NO KEY 



44 
55 
4 
5 
6 
3 

1 
2 
7 
51 
54 
48 
57 
63 
60 
64 



There is a somewhat obscure pattern in the assignment of the keyboard values. 
Begin at the number 3 key, proceed down to the W key and then to the A key. 
Jump up to the top row and the number 4 key. Drop to the bottom row and the 
key in the direct line from the number 4 key (Z). Move up to the key above it (S) 
and then to the key above that key (E). Drop to the bottom row and the key 
immediately before the previously used bottom row key. (In this instance, it should 
be the SHIFT key which comes immediately before the last used bottom row key 
of Z. The SHIFT key is not actually assigned a value and that is probably why the 
numbers 15 and 52 are not used.) To begin the cycle over again, jump to the next 
key on the top row (5) and follow the same sequence of two more keys down, up 
to the top row, down to the bottom row, up two more keys, complete the cycle by 
dropping to the bottom row and the key just before the last-used bottom row key. 
Surprisingly, the sequence even "wraps around" the keyboard and pretty much stays 
consistent. It would appear that the left arrow key was originally intended to be in 
the location of the CTRL key but for some reason was moved. This is obviously 
speculative, but the pattern does suggest that the left arrow key is not where it 
should be. The values of the keys are given below, this time in numerical order. 

VALUE KEY 

INST/DEL 

1 RETURN 

2 CRSR RIGHT/LEFT 

3 F7 

4 Fl 

5 F3 

6 F5 

7 CRSR UP/DOWN 

8 3 

9 W 

10 A 

11 4 
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12 Z 

13 S 

14 E 

15 (NOT USED) 

16 5 

17 R 

18 D 

19 6 

20 C 

21 F 

22 X 

24 7 

25 Y 

26 G 

27 8 

28 B 

29 H 

30 V 

31 V 

32 9 

33 I 

34 J 

35 

36 M 

37 K 

38 

39 N 

40 + 

41 P 

42 L 
43 

44 

45 : 

46 P 
47 

48 ENG. POUND 

49 * 

50 ; 

51 CLR/HOME 

5 2 (NOT USED) 
53 

54 UP ARROW 

55 / 

56 1 

57 LEFT ARROW 

58 (NOT USED) 

59 2 

60 SPACE BAR 

61 (NOT USED) 

62 Q 

6 3 RUN 
64 NO KEY 
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Appendix D 



RANDOM (RELATIVE) FILES WITHOUT 
THE POSITION PARAMETER 



The problem with random (Commodore's relative) files without the position pa- 
rameter can be easily demonstrated by slight modification of the "random test" 
program. The purpose of the modification is to eliminate the position parameter 
from the position command statements and to bypass those statements that refer to 
the second field within each record. After starting up the system and loading the 
DOS Wedge, load the random test program or type it in from the listing given at 
the end of Chapter 10. Then, make the following changes: 

1. Line 180 — delete the position parameter (the last chr$ value). 

2. Add line 195: 195 goto 220. 

3. Line 350 — delete the position parameter (the last chr$ value). 

4. Line 370 — delete the semicolon. 

5. Add line 375: 375 goto 410. 

6. Line 610 — delete the position parameter (the last chr$ value). 

7. Add line 575: 575 goto 610. 

8. Line 630 — delete the tab(15) leaving the statement as: print a$. 

When you have finished making these changes, save the program as "random test 
2": 

random test 2 

If you are using the same diskette that was used to create the first "random example" 
file, you should scratch that file or insert another formatted diskette before contin- 
uing. We want to be absolutely certain that we will not pick up any extraneous 
characters. Another possibility would be to change the name of the file in lines 
150, 320, and 560 to something other than "random example". When you are 
certain you have followed all the steps, run the program. 

@scratchO:random example 
run 

The first part of the program creates a random (relative) file without using the 
position parameter. Each record should contain the word "record" and the actual 
number of the record. Since we have not specified a position parameter, it is logical 
to assume that the "r" in "record" would exist at the first space or byte of each 
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record. It should also be possible to input and display the contents of each record. 
As we will soon see, both of these assumptions are incorrect. When the disk drive 
has stopped, the file "random example" should be on the diskette with twenty-five 
records and each record should be 50 bytes (spaces) in length. The message: Press 
RETURN to continue: should be displayed on the screen. When you are ready, 
follow the directions and press the RETURN key. The disk drive should come back 
on and the screen should display: 

record 1 
record 2 
record 3 
record 4 
record 5 

After the fifth record is displayed, the disk drive continues to run but no further 
information is displayed on the screen. In the past, I have waited for as long as 
five minutes before stopping the program. You do not need to wait. Instead, press 
the RUN/STOP key and at the same time press the RESTORE key. This combination 
of keys halts the operation of the computer and eventually stops the disk drive. In 
order to continue, you will need to manually close the files. Type: 

close 3 
close 2 

Then, switch back to lower case and type: 
goto 500 

By manually closing the files, we are able to go on to the next portion of the 
program and double-check the apparent problem. The screen should display the 
question: Which record number? Answer with the number 5. The disk drive should 
come on and the screen should show: 

record 5 

Which record number? 

Type the number 7 in response to the request for the next record number. Again, 
the screen should show: 

record 7 

Which record number? 

At this point, we know that there is information in records one through five and 
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record seven that we can access with a simple input# statement and without a 
position parameter. But the computer stopped working the last time when it came 
to record six. It will also stop when it comes to record 11 and every fifth record 
thereafter until record 66. At record 66, the problem advances one record and again 
proceeds for every fifth record. I stopped tracking the pattern at record 100. You 
can check this out by answering with record numbers on either side of records 6, 
11, 16, and 21 . Since this test only created 25 records, you cannot go above record 
25. But if you answer with record number 6, 11, 16, or 21, the computer will again 
"hang" with the disk drive continuing to run. In other words, the computer can 
properly access records with the exception of every fifth record. If you have tried 
one of the "problem" records, you will need to press the RUN/STOP key and at 
the same time press the RESTORE key. This combination of keys halts the operation 
of the computer and eventually stops the disk drive. In order to continue, you will 
need to manually close the files. Type: 

close 3 
close 2 

Then, switch back to lower case. This demonstration confirms the existence of a 
problem with random (relative) files created without the position parameter but does 
not explain why the problem exists or what the actual problem is. If you are interested 
in discovering what the problem is, you will need to modify the "random test 2" 
program further. The following changes need to be made: 

1. Add line 505: 505 x = 1 

2. Add to the end of line 610: ;chr$(x) 

3. Change 620 to: 620 get#3,aS 

4. Change 630 to: 630 print "Byte (space)";x;a$ 

5. Add line 635: 635 x = x +1 

6. Add line 637: 637 if status = then 610 

7. Add line 645: 645 x = 1 

These changes allow us to "get" and display each byte of the record until we come 
to the end-of-record marker. We have added a position parameter to line 610 that 
will start at position 1 and increase by 1 byte until the status variable indicates a 
value other than zero. In other words, we should be able to see what is in each 
record beginning at the first byte or space of the record. When all the additions 
and changes have been made, save the program as "random test 3": 

<-random test 3 

Then, type: 
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goto 500 



Begin answering the record number question in the same way you did before. Type 
the number 5 . The screen should show: 



Dyie 


^space^ 


1 


R\#tA 

Dyie 


\spacej 


o 


Dyie 


^space^ 


o 

o 


tjyie 


(SpdCej 




Dyie 


1 O 1^ O A 1 

(space; 


O 




\space; 


D 


Dyie 


(spsce) 


/ 


R\/to 


^spacey 


□ 
O 


R\/ta 


/ on 3 A 1 

\space/ 


q 


oyie 


\space/ 


1 n 

1 U 


Dyie 


(space/ 


1 1 


Dyie 


(space) 


1 9 
1 z 


R\/tA 

Dyie 


(space/ 


1 T r 

1 o r 


Rv/to 

Dyie 


(space/ 


1 H e 


Byte 


(space) 


15 c 


Byte 


(space) 


16 


Byte 


(space) 


17 r 


Byte 


(space) 


18 d 


Byte 


(space) 


19 


Byte 


(space) 


20 5 


Byte 


(space) 


21 


Byte 


(space) 


22 



Which record number? 

Answer with record number 6. This time the computer will not "hang". Instead, 
the screen will show: 

Byte (space) 1 r 

Byte (space) 2 e 

Byte (space) 3 c 

Byte (space) 4 o 

Byte (space) 5 r 

Byte (space) 6 d 

Byte (space) 7 

Byte (space) 8 6 

Byte (space) 9 
Byte (space) 10 
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We now have the answer to what caused the computer to "hang" when it tried to 
access record number six. Records one through five do not actually have the in- 
formation beginning with the first byte of each record. As demonstrated when we 
just now asked for record number five, the "r" in the word "record" did not come 
until the 13th byte or space of that record. But record number six does begin storing 
the information in the normal first byte of the record. Therefore, when the file input 
routine in lines 300 to 450 tried to bring information in from the file, the input#3,a$ 
statement (line 360) for some reason began reading every record at the 13th byte 
of that record. But when it came to the sixth record, it did not find any information 
at the 13th byte of that record. The computer had stored the information where it 
should have stored all the information in every record — in the first 8 bytes of the 
record. In other words, when the information was written, the computer stored the 
information in most of the records in the wrong location. But in those records that 
appeared to be causing the computer to "hang", the information was actually stored 
in the correct location. This fact indicates that the operating system has an additional 
problem because the computer was able to "read" the records that had information 
stored in the wrong location and was not able to read records that had the information 
stored in the right location. Yet, as you saw when you ran the first "random test" 
program in Chapter 10, the process works properly if the position parameter is 
included at every step. Therefore, until Commodore releases a new version of its 
DOS operating system, I would not recommend use of undivided random files 
without a position parameter. 
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■ Program for Random Test 2 



100 rem *'i-*--random file example — *** 
110 : 
120 : 

130 rem **--file output r tui I. i n c- - ** 

140 open 2,8,15:rem open command chnl 

150 open 3 , 8 , 4 , "random example, 1," + chr$(50) 

160 for i = 1 to 25 

170 gosub 1000:rem figure rec.# routine 

180 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh) 

190 print#3, "record" ; i 

195 goto 220 

200 print#2,"p"; chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

210 print#3 , "abcdef" ; i 

220 next i 

230 close 3:close 2 

240 input "Press 'RETURN' to continue: ";r$ 

2 50 : 
260 : 

300 rem **--file input routine--** 

310 open 2,8,1 5 :rem open command chnl 

320 open 3 , 8 , 4 , "random example,!," + chr$(50) 

330 for i = 1 to 25 

340 gosub 1000:rem figure rec.# routine 

3 50 print#2,"p";chr$(4) •,chr$(rlow) ;chr$(rhigh) 
360 input#3,a$ 

370 print a$ 
375 goto 410 

380 print#2,"p"-, chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

390 input#3,b$ 

400 print tab(15) b$ 

410 next i 

420 close 3:close 2 

430 input "Press 'RETURN' to continue: ";r$ 
440 : 
450 : 

5 00 rem ** --random access routine--** 

510 input "Which record number";nb$ 

520 nb = val(nb$) 

530 if nb = then 900:rem end 

540 if nb > 2 5 then 510:rem ask again 

550 i = nbigosub 1000:rem figure rec.# 

560 open 2,8,15:rem open command chnl 

570 open 3 , 8 , 4 , "random example,!," + chr$(50) 

575 goto 610 

580 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 
590 input#3,b$ 
600 print b$; 

610 print#2,"p";chr$(4);chr$(r!ow);chr$(rhigh) 

620 input#3,a$ 

630 print a$ 

640 cl ose 3: close 2 

650 goto 510 

660 : 
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670 : 

900 rem *'i'--end routine — 
910 end 
920 : 
930 : 

1000 rem ** — figure rec.# routine--** 
1010 rlow = i 
1020 rhigh = 

1030 if rlow > 255 then 1050 
1 040 return 

1050 rhigh = i n t ( r 1 ow/ 2 56 ) 

1060 rlow = rlow - 256 * rhigh 

1070 return 

ready . 
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■ Program for Random Test 3 



100 rem ***--randoni file example--*** 
110 : 
120 : 

130 rem **--file output routine--** 

140 open 2,8,15:rera open command chnl 

150 open 3 , 8 , 4 , "random example, 1," + chr$(50) 

160 for i = 1 to 25 

170 gosub 1000:rem figure rec.# routine 

180 print#2,"p";chr$(A);chr$(rlow);chr$(rhigh) 

190 print#3,"record";i 

195 goto 220 

200 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

210 print#3, "abcdef" ; i 

220 next i 

230 close 3:close 2 

240 input "Press 'RETURN' to continue: ";r$ 
250 : 
260 : 

300 rem ** — file input routine — ** 

310 open 2,8,15:rem open command chnl 

320 open 3 , 8 , 4 , "random example , 1 , " + chr$(50) 

330 for i = 1 to 25 

340 gosub 1000:rera figure rec.# routine 

350 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh) 

360 input#3,a$ 

370 print a$ 

375 goto 410 

380 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 

390 input#3,b$ 

400 print tab(15) b$ 

410 next i 

420 close 3:close 2 

430 input "Press 'RETURN' to continue: ";r$ 
440 : 
450 : 

500 rem ** --random access routine--** 
505 X = 1 

510 input "Which record number";nb$ 

520 nb = val(nb$) 

530 if nb = then gOO:rera end 

540 if nb > 25 then 510:rem ask again 

550 i = nb:gosub lOOOtrem figure rec.# 

560 open 2,8,15:rem open command chnl 

570 open 3 , 8 , 4 , " random example, 1," + chr$(50) 

575 goto 610 

580 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(20) 
590 input#3,b$ 
600 print b$; 

610 print#2,"p";chr$(4);chr$(rlow);chr$(rhigh);chr$(x) 
620 get#3,a$ 

630 print "Byte (space)"; x;a$ 
635 x = x + i 

637 if status = then 610 
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6A0 close 3:close 2 
645 X = 1 
650 goto 510 
660 : 
670 : 

900 rem **--end routine--*'!'- 
910 end 
920 : 
930 : 

1000 rem ** — figure rec.# routine--** 
1010 rlow = i 
1020 rhigh = 

1030 if rlow > 255 then 1050 
1040 return 

1050 rhigh = i n t ( r 1 ow/ 2 56 ) 

1060 rlow = rlow - 256 * rhigh 

1070 return 

ready . 
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Appendix E 



WEDGE COPIER 



■ Instructions 

1. Type in the program "wedge copier". 

2. Save it to a diskette. 

3. Run the program and follow the screen directions. 

4. At this point, you have two options: 

a. Load the program called "c-64 wedge" from the "test/demo" diskette and 
save it back out to the diskette containing the copy of the "dos 5.1" wedge . 
You can save the program under a name easier to type, such as "wedge". 
Then, in order to institute the wedge, just type: load "wedge", 8. Follow 
with the run command and the "dos 5.1" program will be loaded and 
initiated. 

b. If you do not want to bother with saving a copy of the "c-64 wedge", 
then everytime you want the wedge, you will need to type: load "dos 
5.1 ",8,1: sys 52224. The wedge should then become active. 



■ Program for Wedge Copier 



100 rem ***__;^edge copier- - 'i-** 
110 : 
120 : 

130 rem * * — read in wedge — * * 
140 dim a%(1000) 
150 i = 1 

160 print chr$(lA7):print:print:print 

170 print "Insert TEST/DEMO diskette and press" 

180 p r i n t : p r i n t 

190 input "'RETURN' to c ont i n ue : " ; w $ 

200 print chr$(147):print:print:print 

210 print tab(5) "READING WEDGE. PLEASE WAIT!" 

220 print 

230 open 2,8,2,"0:dos 5 . 1 , pr g , r ead" 

240 get#2,a$ 

250 a$ = a$ + chr$(0) 

260 a%(i) = asc(a$) 

270 print "."; 

280 i = i + 1 

290 if status = then 240 
300 close 2 
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310 
320 
330 
340 
350 
360 
370 
380 
390 
AOO 
410 
420 
430 
440 
450 
460 
470 
480 



print:print:print 

input "Insert new diskette. Press 'RETURN' 



rem --write out wedge-- ** 

print chr$( 147) : print: print: print 

print tab(5) "WRITING WEDGE. PLEASE WAIT!' 

open 3,8,3,"0:dos 5.1,prg,write" 

for k = 1 to i - 1 

print#3,chr$(a%(k) ) ; 

next k 

close 3 



rem * * - - e n d — * * 
print chr$(147) 
print tab(5) 
end 



pr i nt : print : print 
"ALL FINISHED! ! " 
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Data, 2, 3, 80, 172, 212-217, 222, 275 
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Data files, 4, 18, 19, 20, 23, 24, 27, 32, 42-, 54, 55, 62, 169, 

233, 243, 246-248, 270 
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Decimal, 26, 36, 237, 238 
Default, 10, 27 
Deferred mode, 29, 84 
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Delete, 80, 90, 91, 126-133, 264, 271, 273, 274 
Delimit, 267 

Device number, 7, 8, 9, 10, 23, 24, 64, 92, 93, 237 
DIF, 212ff., 264, 275 

DIM (DIMension), 36, 59, 67, 80, 105, 107, 332 
Direct access, 19, 62, 232, 233, 241 
Direct mode, 29, 84 
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223, 237, 241 

Diskette, 1, 7-14, 21-24, 27, 28, 45, 55, 56, 60-63, 67, 84-86, 

132-134, 223, 236, 239-241, 247, 264, 268, 332 
Dollar sign {$), 2, 3, 12, 21, 26, 28, 45, 47 
DOS (Disk Operating System), 9, 53, 132, 138, 275 
DOS Support Program, 9 

DOS Wedge, 9, 10, 11, 12, 14, 15, 16, 28, 33, 35, 45, 53, 79, 

84, 89, 236 
DOS Wedge Chart, 10, 15 
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End, 25 

EOD, 213, 217, 221, 222 
EOF (End-Of-File), 24 
EOT (End-Of-Tape), 24 
Error messages, 265 
File not Found, 7 
End-Of-Data, 130, 172 
File exists, 57 
Extension, 2, 7 



Features, 62 

Field, 235, 236, 248, 267, 330 

File, 1, 8, 23, 83, 134, 167, 170, 172, 212, 213, 218, 222, 242, 

247, 249, 264-267, 274 
File cabinet, 1, 18, 20 
File folder, 20 
File input routine, 26 
File management system, 3, 53 
File name, 7, 8, 9, 12, 15, 16, 21, 23, 45, 171 
File number, 9, 24, 55, 60, 65, 237-240, 243 
File output routine, 26 
File type, 2, 3, 4, 6, 7, 12, 18, 32, 237 
FOR-NEXT, 25, 27, 40, 172, 240 
Format, 8, 9, 21, 28, 236 
Form letters, 133 
FORTRAN, 7, 32 



GET#, 20, 233, 241 

GOSUB, 39, 41, 44, 45, 67, 222, 247, 265, 268, 269 
GOTO, 99 

Graphic symbols, 26, 44 
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H 



Header section, 213-215, 218-222 

Hexadecimal, 26 
High-byte, 237-239, 244 



IF-THEN, 38, 41, 44, 45, 60, 64, 65, 82, 95-106 
Immediate mode, 29, 84 
Indirect mode, 29, 84 

INPUT#, 20, 25, 26, 27, 233, 234, 241, 246, 267 
Input/Output (I/O), 170, 244 
INST/DEL, xvi, 22, 91, 93 

INT, 173 

Integration of data, 133 
Interface, 27 



K 

Keyboard, xv-xvii, 35, 38, 46, 55, 60, 61, 64, 67, 86, 234, 

235, 242, 274, 333 
Kilobytes (K), 80 



Label, 215-216, 221 

LEFTS, 103, 104, 107, 272-273 

LEN, 107, 173, 273 

Line numbers, 11, 22, 29, 46, 54, 58, 84, 89-91, 126, 128 

LIST, 2, 3, 7, 10, 12, 13, 14, 22, 24, 57, 58 

LOAD, 2, 3, 7, 9, 10, 12, 14, 20, 21, 57, 79, 84 

Loops, 55, 65, 67, 86, 131, 133, 221, 222, 237, 248, 270, 271 

Lower case, xvi, 3, 8, 21, 35, 38, 44, 64, 236, 243, 248 

Low-byte, 237, 239, 244 



M 

Memory, 7, 11-15, 22, 25, 26, 27, 34, 36, 38, 54, 59, 63, 67, 
84, 94, 127, 275 
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MID$, 103, 104, 107, 272-273 
Monitor, 2 



NEW, 8, 9, 11, 12, 14, 21 
Numeric information, 213-216, 220 

Numeric variables, 38, 41, 45, 82, 86, 105, 237-238, 244, 246, 
273 



o 

OPEN, 8, 9, 10, 20-27, 43, 53, 55, 57, 59, 132, 233, 235, 
237-239 



Parameters, 9, 20, 53, 233-241, 244 
Parantheses, 26, 237, 238, 244 
Peripherals, 9 

Phonograph Records, 19, 20, 233 
Pointer, 42, 242, 243, 246, 248, 265, 267, 332, 333 
POKE: 
19, 86 

197, 86 

198, 86 
631-640, 86 
53272, 36 
53281, 36 

Position. 234, 236, 238-241, 244, 246 
PRO, 3, 6, 7, 12, 13 
PRINT, 12, 18, 27 

PR1NT#, 8, 9, 10, 20-24, 27, 43, 233, 246, 267 
Printer, 63-65, 92, 97, 98, 101, 333 

Program, 2, 3, 4, 6, 7, 11, 12, 13, 15, 18, 23, 35, 39, 43, 46, 

57, 79, 80, 87, 89, 167, 169, 274 
Programming, 4, 39, 44, 46, 62, 83-85, 95, 167, 171, 172, 241, 

246, 265, 273, 275, 330 
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Q 

Quotation mark, 11, 24, 37, 84 



R 

Random access, 19, 27, 32, 62, 173, 232-243, 248, 274, 332 
Random order, 3, 264 

Read, 47, 53, 55, 57, 62, 88, 222, 239, 274 
READY, 2, 8, 9, 11, 12, 13, 14, 20, 21, 47, 55, 223 
Record, 19, 55, 59, 172, 232-244, 248, 267-275, 330-332 
REL, 3, 4 

Relative order, 3, 19, 62, 233 
REM, 21, 22, 23, 25, 173, 243 
RENAME, 28, 61 
Replace symbol (@), 25, 34, 61 
Reserved words, 60 

Retrieve information, 19, 24, 26, 47, 53, 213, 222, 232, 239, 
333 

RESTORE, xvi, 234 
RETURN, 39, 44, 97, 269 

RETURN key, xvi, 2, 3, 8, 11, 20, 23, 29, 38, 40, 45, 46, 47, 

79, 82, 86, 87, 90, 91, 93, 96, 126, 223, 241, 246 
RIGHTS, 103, 104, 107 
RND, 173 

Rows, 213-217, 223 

RUN, 7, 9, 11, 14, 20-25, 29, 34, 57, 84, 223, 241 
RUN/STOP, xvi, 172, 234 



s 

SAVE, 7, 8, 10, 11, 12, 14, 20, 25, 45, 62, 84, 86, 169 
Screen, xvi, xvii, 24, 26, 27, 34, 35, 37, 39, 40, 43, 46, 47, 

58-65, 82, 97, 223, 240, 267, 333 
SCRATCH, 28 
Search, 96, 99ff., 248, 267 
Semicolon, 37, 38, 240, 241 
Separators (*, !), 39, 65, 97, 100, 130, 134, 273 
SEQ, 3, 4, 24 
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Sequential access, 19, 27, 53, 57, 62, 79, 167, 173, 221, 

232-237, 242, 267, 274, 332 
Serial, 172 
SGN, 174 
SHIFT key xv, xvi 
SHIFT/LOCK, xvi 
SPACE BAR, xvi, 13 
Special Value, 217 
Sort, 96, 102ff., 133, 267, 270-273 
Sorting — Bubble sort, 102 
Sorting — Quicksort, 102 
Sorting— Shell-Metzner, 102, 267, 270 
STATUS (ST), 43, 170, 172, 244, 265 
STR$, 107, 173 

String variables, 26, 27, 36, 37, 41, 44, 45, 59-61, 65, 67, 
80-84, 99, 102-107, 128, 131, 171, 220, 244, 271-275 

Store information, 19, 24, 26, 47, 53, 213, 222, 232, 239, 331, 
332 

System, 79, 87, 129. 133, 212, 264, 275, 330, 333 



TAB, 82 
Table, 213-215 

Tape, 11-13, 22-25, 42, 45, 47, 53, 57, 59, 61, 63, 67, 68, 79, 

172, 173, 233, 237 
TEST/DEMO, 2, 8, 9, 10, 11, 20, 23, 33, 236 
Top Down Programming, 67, 94 
Topic, 220 
Tuples, 213-217 
TV, 2 



Upper case, 3, 8, 21, 35, 37, 38, 64, 273 
Upper case only mode, xv, 36, 53, 241 
Upper/lower case mode, 35, 36 

User, 83. 128, 244, 246, 248, 266-269, 274, 275, 332 
USR, 3 
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VAL, 82, 107, 174 

Variables, 26, 27, 36. 37, 38, 41, 44, 45, 55, 60, 65, 80, 82, 
99, 102-107, 169, 171, 220, 237-239, 244, 247, 265, 267, 
273, 274, 330, 331, 332 

Vectors, 213-216 



w 

Word Processor, 133 

WRITE, 24, 42, 43, 47, 57, 59, 61, 63 
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